Index: TECH/Http/impl/Poster.cls.xml
===================================================================
diff -u -r3503 -r3504
--- TECH/Http/impl/Poster.cls.xml	(.../Poster.cls.xml)	(revision 3503)
+++ TECH/Http/impl/Poster.cls.xml	(.../Poster.cls.xml)	(revision 3504)
@@ -22,20 +22,20 @@
 <FormalSpec>Message:TECH.Http.Message</FormalSpec>
 <Implementation><![CDATA[
 	Try {
-		set ..Message = Message
-	    do ..ValidateMessage()
+		Set ..Message = Message
+	    Do ..ValidateMessage()
 	    
-	 	set ..HttpRequest = ##class(%Net.HttpRequest).%New()
-	 	set ..HttpRequest.Server = Message.Server
-	 	set ..HttpRequest.ContentType = Message.ContentType
-	 	set ..HttpRequest.ContentEncoding = Message.ContextEncoding
+	 	Set ..HttpRequest = ##class(%Net.HttpRequest).%New()
+	 	Set ..HttpRequest.Server = Message.Server
+	 	Set ..HttpRequest.ContentType = Message.ContentType
+	 	Set ..HttpRequest.ContentEncoding = Message.ContextEncoding
 	 	If ($$$HasLength(Message.Port)) {
 		 	Set ..HttpRequest.Port = Message.Port
 	 	}
 	 	
-	 	do ..SetRequestParams()
+	 	Do ..SetRequestParams()
 	 	
-	 	do ..HttpRequest.EntityBody.CopyFrom(Message.Data)
+	 	Do ..HttpRequest.EntityBody.CopyFrom(Message.Data)
 	 	
 	 	If $$$HasLength(..SslConfiguration) {
 			Set ..HttpRequest.SSLConfiguration = ..SslConfiguration
@@ -45,7 +45,7 @@
 	 	
 	    #dim StatusCode As %Status = ..HttpRequest.Post(Message.Location,0)
 
-	  	do ..ValidateResponse(StatusCode)
+	  	Do ..ValidateResponse(StatusCode)
 	}
 	Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -65,10 +65,10 @@
 <Method name="SetRequestParams">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ParamIterator = ##class(TECH.ListIterator).%New(..Message.Params)
- 	while ParamIterator.HasNext() {
+	Set ParamIterator = ##class(TECH.ListIterator).%New(..Message.Params)
+ 	While ParamIterator.HasNext() {
  		#dim KeyValuePair As TECH.KeyValuePair = ParamIterator.Next()
- 		do ..HttpRequest.SetParam(KeyValuePair.Key,KeyValuePair.Value)
+ 		Do ..HttpRequest.SetParam(KeyValuePair.Key,KeyValuePair.Value)
  	}
 ]]></Implementation>
 </Method>
@@ -77,9 +77,9 @@
 <Private>1</Private>
 <Implementation><![CDATA[
  	#dim stValidate As %Status = ..Message.%ValidateObject()
- 	if $$$ISERR(stValidate) {
-	    set Exception = ##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"HttpPost to "_..Message.Server_" failed",stValidate)
-	    do ##class(TECH.ExceptionHandler).Throw(Exception)
+ 	If $$$ISERR(stValidate) {
+	    Set Exception = ##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"HttpPost to "_..Message.Server_" failed",stValidate)
+	    Do ##class(TECH.ExceptionHandler).Throw(Exception)
     }
 ]]></Implementation>
 </Method>
@@ -88,14 +88,14 @@
 <FormalSpec>Status:%Status</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-    if $$$ISERR(Status) {
-	    set Exception = ##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"HttpPost to "_..Message.Server_" failed",Status)
-	    do ##class(TECH.ExceptionHandler).Throw(Exception)
+    If $$$ISERR(Status) {
+	    Set Exception = ##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"HttpPost to "_..Message.Server_" failed",Status)
+	    Do ##class(TECH.ExceptionHandler).Throw(Exception)
     }
 	
-	if ..HttpRequest.HttpResponse.StatusCode '= 200 {
-	    set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"HttpPost to "_..Message.Server_" failed. "_..HttpRequest.HttpResponse.ReasonPhrase)
-	    do ##class(TECH.ExceptionHandler).Throw(Exception)
+	If ..HttpRequest.HttpResponse.StatusCode '= 200 {
+	    Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"HttpPost to "_..Message.Server_" failed. "_..HttpRequest.HttpResponse.ReasonPhrase)
+	    Do ##class(TECH.ExceptionHandler).Throw(Exception)
 		    
     }
 ]]></Implementation>