Index: vhLib/WebServiceLogger/LogService.cls.xml
===================================================================
diff -u -r321 -r809
--- vhLib/WebServiceLogger/LogService.cls.xml	(.../LogService.cls.xml)	(revision 321)
+++ vhLib/WebServiceLogger/LogService.cls.xml	(.../LogService.cls.xml)	(revision 809)
@@ -9,13 +9,31 @@
 <Implementation><![CDATA[
 		Try{
 			Do ##class(vhLib.WebServiceLogger.Logger).Instance().LogStream(Stream,Direction,ClassName)
+			Do ..ZetWebServiceRequestStream(Stream)
 		}Catch(E){
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 			Do ##class(vhLib.Logger).%New("WS.WebserviceLogger").ErrorMail("LogStream",Exception.ToString())	
 		}
 ]]></Implementation>
 </Method>
 
+<Method name="ZetWebServiceRequestStream">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Stream:%Stream</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set %vhLibWebServiceRequestStream = ##class(%GlobalCharacterStream).%New()
+	Do %vhLibWebServiceRequestStream.CopyFrom(Stream)
+]]></Implementation>
+</Method>
+
+<Method name="GeefWebServiceRequestStream">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Stream</ReturnType>
+<Implementation><![CDATA[	Quit %vhLibWebServiceRequestStream
+]]></Implementation>
+</Method>
+
 <Method name="ZetLogger">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Logger:vhLib.WebServiceLogger.Logger</FormalSpec>