Index: vhLib/WebServiceHelper.cls.xml
===================================================================
diff -u -r2881 -r3750
--- vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 2881)
+++ vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 3750)
@@ -17,25 +17,25 @@
 </Method>
 
 <Method name="OnAfterWriteSOAPMessage">
-<FormalSpec>ClassName:%String</FormalSpec>
+<FormalSpec>ClassName:%String,ThisWebService:%SOAP.WebService</FormalSpec>
 <Implementation><![CDATA[
 	Do ..IO.Reset()
 	#dim Stream As %FileCharacterStream = ..IO.GeefStream()
 	while 'Stream.AtEnd {
 		write Stream.Read()
 	}
 	#dim UitvoeringTijd As %Decimal = $$RestartTimer^vhLib()
-	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(Stream,"OUT",ClassName)
+	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(Stream,"OUT",ClassName, $G(ThisWebService))
 	Do ##class(vhLib.WebServiceLogger.LogService).LogUitvoeringTijd(ClassName,UitvoeringTijd)
 	Do ..IO.KuisOp()
 ]]></Implementation>
 </Method>
 
 <Method name="ProcessBody">
-<FormalSpec><![CDATA[action:%String,requestBody:%CharacterStream,&responseBody:%CharacterStream,ClassName:%String]]></FormalSpec>
+<FormalSpec><![CDATA[action:%String,requestBody:%CharacterStream,&responseBody:%CharacterStream,ClassName:%String,ThisWebService:%SOAP.WebService]]></FormalSpec>
 <Implementation><![CDATA[
 	Do StartTimer^vhLib
-	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(requestBody,"IN",ClassName)
+	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(requestBody,"IN",ClassName, $G(ThisWebService))
 	Try {
 		#dim Personality as %String = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
 	} Catch{