Index: vhLib/WebClient.cls.xml
===================================================================
diff -u -r2968 -r3356
--- vhLib/WebClient.cls.xml	(.../WebClient.cls.xml)	(revision 2968)
+++ vhLib/WebClient.cls.xml	(.../WebClient.cls.xml)	(revision 3356)
@@ -2,6 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="vhLib.WebClient">
 <Abstract>1</Abstract>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>%SOAP.WebClient</Super>
 
 <Method name="RaiseException">
@@ -13,11 +14,23 @@
 	
 	do:$data(%objlasterror) Exception.VoegToeExtraInfo("Error : "_$$ParseStatus^vhLib(%objlasterror))
 	
-	do Exception.VoegToeExtraInfo("request : ")
-	do Exception.VoegToeExtraInfo($this.HttpRequest.Data)
+	If $IsObject(..HttpRequest) {
+		do Exception.VoegToeExtraInfo("request : ")
+		do Exception.VoegToeExtraInfo($this.HttpRequest.Data)
+		do Exception.VoegToeExtraInfo($$ObjToText^vhLib($this.HttpRequest))
+	}
+	Else {
+		do Exception.VoegToeExtraInfo("No HttpRequest object")
+	}
 	
-	do Exception.VoegToeExtraInfo("response : ")
-	do Exception.VoegToeExtraInfo($this.HttpResponse.Data)
+	If $IsObject(..HttpResponse) {
+		do Exception.VoegToeExtraInfo("response : ")
+		do Exception.VoegToeExtraInfo($this.HttpResponse.Data)
+		do Exception.VoegToeExtraInfo($$ObjToText^vhLib($this.HttpResponse))
+	}
+	Else {
+		do Exception.VoegToeExtraInfo("No HttpResponse object")
+	}
 
 	do ##class(TECH.ExceptionHandler).Throw(Exception)
 ]]></Implementation>