Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r440 -r474
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 440)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 474)
@@ -69,6 +69,10 @@
 <Parameter name="TRUNCATE" value="0"/>
 </Property>
 
+<Property name="DetailAsStream">
+<Type>%GlobalCharacterStream</Type>
+</Property>
+
 <Property name="LessDetail">
 <Type>%String</Type>
 <Parameter name="MAXLEN"/>
@@ -83,10 +87,6 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
-<Property name="Info">
-<Type>%GlobalCharacterStream</Type>
-</Property>
-
 <Property name="JobID">
 <Type>%String</Type>
 <Parameter name="TRUNCATE" value="1"/>
@@ -223,6 +223,7 @@
 	Set Subject = Subject _ oLog.Groep_" : "_ Actie _ " - " _ $ZDT($H,4)
 	
 	; voortijdige quit indien een fout bij het opslaan van de log
+	
 	Quit:($$$ISERR(scSave)) $$ParseStatus^vhLib.System(scSave)
 	
 	If ( scSave ) && ( SendMail ) & ( Niveau '= "D" ) Do
@@ -238,10 +239,7 @@
 
 <Method name="GenMailBody">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	set Body = ##class(%GlobalCharacterStream).%New()
-	do Body.WriteLine(..Detail)
-	Quit Body
+<Implementation><![CDATA[	Quit ..DetailAsStream
 ]]></Implementation>
 </Method>
 
@@ -270,10 +268,13 @@
 		}
 	}
 
-	if $IsObject(Detail) { set ..Info = Detail }
+	if $IsObject(Detail) { 
+		set ..DetailAsStream = Detail 
+		set ..Detail = Detail.Read(10000)
+	}
 	else  {	
 		Set ..Detail = Detail	
-		do ..Info.WriteLine(Detail)
+		do ..DetailAsStream.WriteLine(Detail)
 	}
 	Set ..ProgLabel = $G(ProgLabel)
 	
@@ -416,7 +417,7 @@
 <Value>LessDetail</Value>
 </Value>
 <Value name="13">
-<Value>Info</Value>
+<Value>DetailAsStream</Value>
 </Value>
 <Value name="14">
 <Value>Gebruiker</Value>