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>
 
Index: TECH/Exceptions/StatusException.cls.xml
===================================================================
diff -u -r2642 -r3269
--- TECH/Exceptions/StatusException.cls.xml	(.../StatusException.cls.xml)	(revision 2642)
+++ TECH/Exceptions/StatusException.cls.xml	(.../StatusException.cls.xml)	(revision 3269)
@@ -22,6 +22,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOmschrijving">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$$If($length(..Omschrijving),..Omschrijving,"Status validatie fout")
+]]></Implementation>
+</Method>
+
 <Method name="GeefStatus">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit $$ParseStatus^vhLib.System(..Status)
@@ -49,12 +55,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="GeefOmschrijving">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Omschrijving_" : "_" ("_..GeefStatus()_")"
-]]></Implementation>
-</Method>
 </Class>