Index: vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml
===================================================================
diff -u -r2601 -r2981
--- vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml	(.../VhLibLogger.cls.xml)	(revision 2601)
+++ vhLib/WebServiceLogger/impl/VhLibLogger.cls.xml	(.../VhLibLogger.cls.xml)	(revision 2981)
@@ -9,57 +9,20 @@
 <FormalSpec>Stream:%Stream,Direction:%String,ClassName:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Webmethod As %String = ..GeefWebMethod()	
-	If (..IsLoggingNodig(ClassName, Webmethod))
-	{
+	If (..IsLoggingNodig(ClassName, Webmethod)) {
 		#dim Actie As %String = Webmethod_" "_Direction
 		If ..GeefLogNiveau(ClassName) = ##class(vhLib.WebServiceLogger.enu.LogNiveau).Debug() {
-			#dim Detail As %String = ..GeefDebugDetail(Stream)	
-			Do ##class(vhLib.Logger).%New(ClassName).Debug(Actie,Detail)
-		}ElseIf ..GeefLogNiveau(ClassName) = ##class(vhLib.WebServiceLogger.enu.LogNiveau).Info() {
+			set GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
+			do GlobalCharacterStream.CopyFrom(Stream)
+			do Stream.Rewind()
+			Do ##class(vhLib.Logger).%New(ClassName).Debug(Actie,GlobalCharacterStream)
+		} ElseIf ..GeefLogNiveau(ClassName) = ##class(vhLib.WebServiceLogger.enu.LogNiveau).Info() {
 			Do ##class(vhLib.Logger).%New(ClassName).Info(Actie,"")
 		}			
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDebugDetail">
-<FormalSpec>Stream:%Stream</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim Debug As %String = ""
-	Try {		
-		Do Stream.Rewind()	
-		#dim MaximumLengteBereikt As %Boolean = 0
-		While ('Stream.AtEnd && 'MaximumLengteBereikt){
-			Try {
-				Set Debug = ##class(TECH.StringUtils).Append(Debug,Stream.ReadLine(),$C(13,10))
-			} Catch {
-				#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-				If Exception.GeefOmschrijving()'["MAXSTRING" {
-					Do ##class(TECH.ExceptionHandler).Rethrow()
-				}Else{
-					Set MaximumLengteBereikt = 1
-					#Define AantalTekensDatZekerNogGoedGelogdEnGelezenKanWorden 20000
-					Set Debug = $E(Debug, 1, $$$AantalTekensDatZekerNogGoedGelogdEnGelezenKanWorden) _ " ..[deel ontbreekt].."
-				}
-			}
-		}
-		Do Stream.Rewind()	
-	} Catch {
-		Set Exception = ##class(TECH.ExceptionHandler).Catch()
-		Set Debug = Exception.GeefOmschrijving()
-		Do ##class(vhLib.Logger).LogEnMailExceptie(Exception)
-		Try{
-			Do Stream.Rewind()		
-		} Catch {
-			Set Exception = ##class(TECH.ExceptionHandler).Catch()	
-		}
-	}
-	Quit Debug
-]]></Implementation>
-</Method>
-
 <Method name="LogUitvoeringTijd">
 <FormalSpec>ClassName:%String,UitvoeringTijd:%Decimal</FormalSpec>
 <Implementation><![CDATA[	Set ^vhLib.WebServiceLogger.UitvoeringTijd(+UitvoeringTijd,$I(^vhLib.WebServiceLogger.UitvoeringTijd(+UitvoeringTijd))) = $LB(ClassName,..GeefWebMethod())