Index: WS/LoggingWebService.cls.xml
===================================================================
diff -u
--- WS/LoggingWebService.cls.xml	(revision 0)
+++ WS/LoggingWebService.cls.xml	(revision 3061)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.LoggingWebService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="OnPage">
+<Description><![CDATA[
+This method is used internally by Cach&eacute;. You should not make direct
+use of it within your applications. There is no guarantee made about either
+the behavior or future operation of this method.		]]></Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If $Data(%request.Data("WSDL"))!$Data(%request.Data("wsdl")) {
+		#; If it's a WSDL Request, just generate the WSDL for the client
+		Do ..GenerateWSDL()
+
+	} Else {
+		#; Create the web service instance
+		Set service=..%New()
+
+		#; Process as SOAP or HTTP page
+		Set tAction=$Get(%request.CgiEnvs("HTTP_SOAPACTION"))
+		If tAction'="" {
+			Set ClassName = ..%ClassName(1)
+			Do ##class(WS.WebserviceLogger).LogStream(%request.Content,"IN",ClassName)
+			Do service.ProcessSOAP($$$URLDECODE(tAction),%request.Content)
+		} Else {
+			Do service.ProcessHTTP()
+		}
+	}
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WriteSOAPMessage">
+<Description><![CDATA[
+Execute the Web Method represented by the descriptor class on
+the server.  If an error is detected, a ztrap "SOAP" will be issued with
+%objlasterror containing the error %Status.  If is the responsibilty of the
+caller of the proxy method to set an error trap and test for $ZE["&lt;ZSOAP&gt;".
+Note that if a SOAP fault is received, then the error is $$$SOAPFaultReceived.
+Write the SOAP message that corresponds to the specified class.]]></Description>
+<FormalSpec>body:%SOAP.Descriptor,tag:%String,isService:%Boolean</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set IO = ##class(TECH.IO).%New()
+	do IO.Redirect()
+	set sc = ##super(body,tag,isService)
+	do IO.Reset()
+	set Stream = IO.GeefStream()
+	while 'Stream.AtEnd {
+		write Stream.Read()
+	}	
+	Set ClassName = ..%ClassName(1)
+	Do ##class(WS.WebserviceLogger).LogStream(Stream,"OUT",ClassName)
+	quit sc
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: WS/WebserviceLogger.cls.xml
===================================================================
diff -u -r3009 -r3061
--- WS/WebserviceLogger.cls.xml	(.../WebserviceLogger.cls.xml)	(revision 3009)
+++ WS/WebserviceLogger.cls.xml	(.../WebserviceLogger.cls.xml)	(revision 3061)
@@ -45,8 +45,8 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set $ZTRAP = "CatchIsLoggingNodig"
-	Set IsLoggingNodig = 0
-	If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("WS.WebService.Log")){
+	Set IsLoggingNodig = ($Length(Webmethod)>0)
+	If (IsLoggingNodig && ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("WS.WebService.Log")){
 		If $Data(^TECH.Config.LogAlleWebservices){
 			Set IsLoggingNodig = ^TECH.Config.LogAlleWebservices
 			If ('IsLoggingNodig){