Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r3157 -r3269
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3157)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3269)
@@ -57,7 +57,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Exceptie:TECH.Exceptions.Exception</FormalSpec>
 <Implementation><![CDATA[
-	Set Logger = ..%New()	
+	Set Logger = ..%New()
 	Do Logger.Error(Exceptie.GeefOmschrijving(),..GeefExceptieInfo(Exceptie))
 ]]></Implementation>
 </Method>
@@ -68,15 +68,16 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-		
-	#dim Info As %String = "TrapHandler: "_$ETrap_$C(13,10)
-	Set Info = Info_"Device: "_$I_"  Job: "_$J_$C(13,10)
-	Set Info = Info_"Server: "_##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"  NameSpace: "_$ZU(5)_$C(13,10)
-	Set Info = Info_"GebruikerID: "_##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()_$C(13,10)
-	Set Info = Info_"GebruikerInitialen: "_##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()_$C(13,10)
-	Set Info = Info_"ComputerNaam: "_##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam()_$C(13,10)
-	Set Info = Info_Exceptie.ToString()
-	Quit Info
+	#dim Stream As %Stream.Object = ##class(%GlobalCharacterStream).%New()
+	do Stream.WriteLine("TrapHandler: "_$ETrap)
+	do Stream.WriteLine("Device: "_$I_"  Job: "_$J)
+	do Stream.WriteLine("Server: "_##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()_"  NameSpace: "_$ZU(5))
+	do Stream.WriteLine("GebruikerID: "_##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID())
+	do Stream.WriteLine("GebruikerInitialen: "_##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen())
+	do Stream.WriteLine("ComputerNaam: "_##class(TECH.Context.RuntimeContext).Instance().GeefComputerNaam())
+	do Stream.WriteLine($$$CRLF)
+	do Stream.CopyFrom(Exceptie.ToStream())
+	Quit Stream
 ]]></Implementation>
 </Method>