Index: vhLib/WebServiceHelper.cls.xml
===================================================================
diff -u -r360 -r828
--- vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 360)
+++ vhLib/WebServiceHelper.cls.xml	(.../WebServiceHelper.cls.xml)	(revision 828)
@@ -27,6 +27,14 @@
 		Do ..IO.KuisOp()
 ]]></Implementation>
 </Method>
+
+<Method name="ProcessBody">
+<FormalSpec><![CDATA[action:%String,requestBody:%CharacterStream,&responseBody:%CharacterStream,ClassName:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(requestBody,"IN",ClassName)
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhLib/WebService.cls.xml
===================================================================
diff -u -r369 -r828
--- vhLib/WebService.cls.xml	(.../WebService.cls.xml)	(revision 369)
+++ vhLib/WebService.cls.xml	(.../WebService.cls.xml)	(revision 828)
@@ -83,7 +83,8 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	#dim ClassName As %String = ..%ClassName(1)
-	Do ##class(vhLib.WebServiceLogger.LogService).LogStream(requestBody,"IN",ClassName)
+	Set WebServiceHelper = ##class(vhLib.WebServiceHelper).%New()
+	do WebServiceHelper.ProcessBody(.action,.requestBody,.responseBody,ClassName)	
 	Quit 0
 ]]></Implementation>
 </Method>