Index: vhLib/WebService.cls.xml
===================================================================
diff -u -r2881 -r3301
--- vhLib/WebService.cls.xml	(.../WebService.cls.xml)	(revision 2881)
+++ vhLib/WebService.cls.xml	(.../WebService.cls.xml)	(revision 3301)
@@ -49,6 +49,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie($Classname())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ProcessBody">
 <Description><![CDATA[
 The ProcessBody method of %SOAP.WebService will be passed the request message body 
@@ -70,6 +82,10 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set WebServiceHelper = ##class(vhLib.WebServiceHelper).%New()
+	;if ##class(TECH.StreamUtils).IsTextInStream(requestBody,"utf-16"){
+	;	Do ##class(Tools.Wlip).%New(207).String("wooho")
+	;}
+	
 	Do WebServiceHelper.ProcessBody(.action,.requestBody,.responseBody,$classname())	
 	Quit 0
 ]]></Implementation>