Index: vhLib/WebService.cls.xml
===================================================================
diff -u -r3303 -r3792
--- vhLib/WebService.cls.xml	(.../WebService.cls.xml)	(revision 3303)
+++ vhLib/WebService.cls.xml	(.../WebService.cls.xml)	(revision 3792)
@@ -85,7 +85,7 @@
 <Implementation><![CDATA[
 	Set WebServiceHelper = ##class(vhLib.WebServiceHelper).%New()
 	
-	Do WebServiceHelper.ProcessBody(.action,.requestBody,.responseBody,$classname())	
+	Do WebServiceHelper.ProcessBody(.action,.requestBody,.responseBody,$classname(),$this)
 	Quit 0
 ]]></Implementation>
 </Method>
@@ -174,7 +174,7 @@
 
 	Do ..EndSOAPEnvelope()
 	
-	Do WebServiceHelper.OnAfterWriteSOAPMessage(..%ClassName(1))
+	Do WebServiceHelper.OnAfterWriteSOAPMessage(..%ClassName(1), $this)
 	
 	Quit $$$OK
 ]]></Implementation>