Index: TECH/Exceptions/Exception.cls.xml
===================================================================
diff -u -r2524 -r2635
--- TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 2524)
+++ TECH/Exceptions/Exception.cls.xml	(.../Exception.cls.xml)	(revision 2635)
@@ -99,36 +99,46 @@
 <FormalSpec>Prefix:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim TekstStream As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
-	Do TekstStream.WriteLine(Prefix_"Omschrijving: "_$$$TAB_..GeefOmschrijving())
+	#dim TekstStream As %GlobalCharacterStream = ..ToStream(Prefix)
+	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>
+
+<Method name="ToStream">
+<FormalSpec>Prefix:%String</FormalSpec>
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	#dim Stream As %GlobalCharacterStream = ##class(%GlobalCharacterStream).%New()
+	Do Stream.WriteLine(Prefix_"Omschrijving: "_$$$TAB_..GeefOmschrijving())
 	
-	Do TekstStream.WriteLine(..GeefStack())
+	Do Stream.WriteLine(..GeefStack())
 	
 	if ..ExtraInfo.Size>0 {
-		do TekstStream.WriteLine(Prefix_"Extra info:")
+		do Stream.WriteLine(Prefix_"Extra info:")
 		do ..ExtraInfo.Rewind()
 		while '..ExtraInfo.AtEnd { 
-			do TekstStream.WriteLine(Prefix_$$$TAB_..ExtraInfo.ReadLine())
+			do Stream.WriteLine(Prefix_$$$TAB_..ExtraInfo.ReadLine())
 		}
 	}
 	
-	Do TekstStream.WriteLine(Prefix_"ErrorCode: "_$$$TAB_..GeefExceptionCode())
-	Do TekstStream.WriteLine(Prefix_"ErrorKlasse: "_$$$TAB_..%ClassName())
-	Do:$length(..GeefTekstOpLijn()) TekstStream.WriteLine(Prefix_..GeefTekstOpLijn())
-	Do TekstStream.WriteLine(Prefix_"Tijdstip: "_$$$TAB_..GeefTijdstip())
+	Do Stream.WriteLine(Prefix_"ErrorCode: "_$$$TAB_..GeefExceptionCode())
+	Do Stream.WriteLine(Prefix_"ErrorKlasse: "_$$$TAB_..%ClassName())
+	Do:$length(..GeefTekstOpLijn()) Stream.WriteLine(Prefix_..GeefTekstOpLijn())
+	Do Stream.WriteLine(Prefix_"Tijdstip: "_$$$TAB_..GeefTijdstip())
 	#dim ErrorListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..InnerExceptions)
 	While ErrorListIterator.HasNext() {
 		#dim InnerException As TECH.Exceptions.Exception = ErrorListIterator.Next() 
-		Do TekstStream.WriteLine(Prefix_"InnerExceptie "_ ErrorListIterator.Key() _":")
-		Do TekstStream.Write(InnerException.ToString(Prefix_"***"))
+		Do Stream.WriteLine(Prefix_"InnerExceptie "_ ErrorListIterator.Key() _":")
+		Do Stream.Write(InnerException.ToString(Prefix_"***"))
 	}
-	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
+	
+	Quit Stream
 ]]></Implementation>
 </Method>