Index: TECH/Exceptions/AbstractOmschrijvingException.cls.xml
===================================================================
diff -u -r811 -r817
--- TECH/Exceptions/AbstractOmschrijvingException.cls.xml	(.../AbstractOmschrijvingException.cls.xml)	(revision 811)
+++ TECH/Exceptions/AbstractOmschrijvingException.cls.xml	(.../AbstractOmschrijvingException.cls.xml)	(revision 817)
@@ -30,6 +30,12 @@
 <Implementation><![CDATA[	Quit ..Omschrijving
 ]]></Implementation>
 </Method>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r811 -r817
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 811)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 817)
@@ -53,17 +53,24 @@
 <FormalSpec>Prefix:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Tekst As %String = ""
-	Set Tekst = Tekst_Prefix_"Omschrijving: "_$C(9)_..GeefOmschrijving()_$$$CRLF
-	Set Tekst = Tekst_Prefix_"ErrorCode: "_$C(9)_..GeefExceptionCode()_$$$CRLF
-	Set:$length(..GeefTekstOpLijn()) Tekst = Tekst_Prefix_..GeefTekstOpLijn()
-	Set Tekst = Tekst_Prefix_"Tijdstip: "_$C(9)_..GeefTijdstip()_$$$CRLF
+	#dim TekstStream As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
+	Do TekstStream.WriteLine(Prefix_"Omschrijving: "_$C(9)_..GeefOmschrijving())
+	Do TekstStream.WriteLine(Prefix_"ErrorCode: "_$C(9)_..GeefExceptionCode())
+	Do:$length(..GeefTekstOpLijn()) TekstStream.WriteLine(Prefix_..GeefTekstOpLijn())
+	Do TekstStream.WriteLine(Prefix_"Tijdstip: "_$C(9)_..GeefTijdstip())
 	#dim ErrorListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..InnerExceptions)
 	While ErrorListIterator.HasNext() {
 		#dim InnerException As TECH.Exceptions.Exception = ErrorListIterator.Next() 
-		Set Tekst = Tekst_ Prefix_"InnerExceptie "_ ErrorListIterator.Key() _":"_ $$$CRLF _InnerException.ToString(Prefix_"***")
+		Do TekstStream.WriteLine(Prefix_"InnerExceptie "_ ErrorListIterator.Key() _":")
+		Do TekstStream.Write(InnerException.ToString(Prefix_"***"))
 	}
-	Quit Tekst
+	Do TekstStream.Rewind()
+	#dim Result As %String = TekstStream.Read()
+	if (TekstStream.Size) > 32000
+	{
+		Set Result = Result _ $$$CRLF _ "Rest van de Exceptie is afgekapt!!!"
+	}
+	Quit Result
 ]]></Implementation>
 </Method>