Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r1020 -r1200
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1020)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1200)
@@ -71,6 +71,18 @@
 <FormalSpec>Niveau:%String,Actie:%String,Detail:%String,blnSendMail:%Boolean=0</FormalSpec>
 <ReturnType>Logging</ReturnType>
 <Implementation><![CDATA[
+	Try {
+		#dim WebServiceRequestStream As %Stream = ##class(vhLib.WebServiceLogger.LogService).GeefWebServiceRequestStream()
+		If $Data(WebServiceRequestStream) && $IsObject(WebServiceRequestStream) {
+			Set Detail = Detail_$C(13,10)_$C(13,10)_"Webservice Request : "_$C(13,10)_"--------------------"_$C(13,10)
+			While 'WebServiceRequestStream.AtEnd {
+				Set Detail = Detail_$C(13,10)_WebServiceRequestStream.ReadLine()
+			}			
+		}
+	}Catch{
+		
+	}
+	
 	#dim Logging As vhLib.Logging =##class(vhLib.Logging).Create(%this,,,.Niveau,..Groep,.Actie,.Detail,,.blnSendMail)
 	Quit Logging
 ]]></Implementation>