Index: vhLib/WebServiceHelper.cls.xml
===================================================================
diff -u -r3750 -r3863
--- vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 3750)
+++ vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 3863)
@@ -76,8 +76,34 @@
 
 		Set fault.detail=detail
 	}
+	
+	Do ##class(vhLib.Logger).%New("").Error("OnInternalFault", ..GeefSoapFaultInfo(fault, $Get(status), $Get(Classname)))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefSoapFaultInfo">
+<FormalSpec>fault:%SOAP.Fault,status:%Status,Classname:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[
+	#dim Stream As %Stream.Object = ##class(%GlobalCharacterStream).%New()
+	Do Stream.WriteLine("Soap fault in web service '"_$Get(Classname)_"'.")
+	Do Stream.WriteLine("SoapFault : "_fault.faultstring)
+	Do Stream.WriteLine("Status value : "_$$ParseStatus^vhLib(status))
+	Do Stream.WriteLine($$$CRLF)
+	
+	#dim SoapFaultAsXmlStream As %Stream.Object
+	#dim sc As %Status = fault.XMLExportToStream(.SoapFaultAsXmlStream, , "literal,indent")
+	If $$$ISOK(sc) {
+		Do Stream.CopyFrom(SoapFaultAsXmlStream)
+	}
+	Else {
+		Do Stream.WriteLine("XmlExport van de SoapFault: " _ $$ParseStatus^vhLib(sc))
+	}
+	
+	Quit Stream
+]]></Implementation>
+</Method>
 </Class>