Index: APPS/Halux/common/impl/MaakBatchException.cls.xml
===================================================================
diff -u -r29059 -r36314
--- APPS/Halux/common/impl/MaakBatchException.cls.xml	(.../MaakBatchException.cls.xml)	(revision 29059)
+++ APPS/Halux/common/impl/MaakBatchException.cls.xml	(.../MaakBatchException.cls.xml)	(revision 36314)
@@ -34,24 +34,25 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ToString">
-<ReturnType>%String</ReturnType>
+<Method name="ToStream">
+<FormalSpec>Prefix:%String=""</FormalSpec>
+<ReturnType>%GlobalCharacterStream</ReturnType>
 <Implementation><![CDATA[
-	Set ToString = ""
+	#dim Stream As %Stream.Object = ##class(%GlobalCharacterStream).%New()
 	Set BatchErrorIterator = ##class(TECH.ListIterator).%New(..BatchErrors)
-	While (BatchErrorIterator.HasNext())
-	{
-		Set BatchError = BatchErrorIterator.Next()
-		Set ToString = ToString_"[ Toelevering: "_BatchError.ToeleveringNummer
+	While (BatchErrorIterator.HasNext()) {
+		#dim BatchError As APPS.Halux.common.impl.BatchError = BatchErrorIterator.Next()
+		do Stream.Write("[ Toelevering: "_BatchError.ToeleveringNummer)
 		Set BoodschapIterator = ##class(TECH.ListIterator).%New(BatchError.Boodschappen)
-		While (BoodschapIterator.HasNext())
-		{
-			Set ToString = ToString_", "_BoodschapIterator.Next()
+		While (BoodschapIterator.HasNext())	{
+			do Stream.Write(", "_BoodschapIterator.Next())
 		}
-		Set ToString = ToString_" ] "
+		do Stream.WriteLine(" ]")
 	}
-	Set ToString = ToString_$C(13,10)_##super()
-	Quit ToString
+	
+	Do Stream.CopyFrom(##super(Prefix))
+	
+	Quit Stream
 ]]></Implementation>
 </Method>
 </Class>