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>
Index: vhLib/WebServiceLogger/LogService.cls.xml
===================================================================
diff -u -r2792 -r3301
--- vhLib/WebServiceLogger/LogService.cls.xml	(.../LogService.cls.xml)	(revision 2792)
+++ vhLib/WebServiceLogger/LogService.cls.xml	(.../LogService.cls.xml)	(revision 3301)
@@ -12,7 +12,7 @@
 		Do ..ZetWebServiceRequestStream(Stream)
 	}Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Do ##class(vhLib.Logger).%New("WS.WebserviceLogger").ErrorMail("LogStream",Exception.ToString())	
+		Do ##class(vhLib.Logger).%New().ErrorMail("LogStream",Exception.ToString())	
 	}
 ]]></Implementation>
 </Method>
Index: vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml
===================================================================
diff -u -r2981 -r3301
--- vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml	(.../VhLibLogger.cls.xml)	(revision 2981)
+++ vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml	(.../VhLibLogger.cls.xml)	(revision 3301)
@@ -15,9 +15,9 @@
 			set GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
 			do GlobalCharacterStream.CopyFrom(Stream)
 			do Stream.Rewind()
-			Do ##class(vhLib.Logger).%New(ClassName).Debug(Actie,GlobalCharacterStream)
+			Do ##class(vhLib.Logger).%New().Debug(Actie,GlobalCharacterStream)
 		} ElseIf ..GeefLogNiveau(ClassName) = ##class(vhLib.WebServiceLogger.enu.LogNiveau).Info() {
-			Do ##class(vhLib.Logger).%New(ClassName).Info(Actie,"")
+			Do ##class(vhLib.Logger).%New().Info(Actie,"")
 		}			
 	}
 ]]></Implementation>