Index: TECH/Http/impl/Poster.cls.xml
===================================================================
diff -u -r2612 -r3327
--- TECH/Http/impl/Poster.cls.xml	(.../Poster.cls.xml)	(revision 2612)
+++ TECH/Http/impl/Poster.cls.xml	(.../Poster.cls.xml)	(revision 3327)
@@ -16,24 +16,32 @@
 <Method name="PostMessage">
 <FormalSpec>Message:TECH.Http.Message</FormalSpec>
 <Implementation><![CDATA[
-	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
- 	If ($$$HasLength(Message.Port)) {
-	 	Set ..HttpRequest.Port = Message.Port
- 	}
- 	
- 	do ..SetRequestParams()
- 	
- 	do ..HttpRequest.EntityBody.CopyFrom(Message.Data)
- 	
-    #dim StatusCode As %Status = ..HttpRequest.Post(Message.Location,0)
+	Try {
+		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
+	 	If ($$$HasLength(Message.Port)) {
+		 	Set ..HttpRequest.Port = Message.Port
+	 	}
+	 	
+	 	do ..SetRequestParams()
+	 	
+	 	do ..HttpRequest.EntityBody.CopyFrom(Message.Data)
+	 	
+	    #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()
+		Set PostMessagException = ##class(TECH.Exceptions.CommunicationErrorException).%New("HttpPost to "_Message.Server_" failed."_Message_..HttpRequest)   ; TECH.Http.PostMessageException 
+		Do PostMessagException.VoegToeInnerExceptie(Exception)
+		Do ##class(TECH.ExceptionHandler).Throw(PostMessagException)
+	}
 ]]></Implementation>
 </Method>