Index: APPS/PM/Maatwerk/impl/KenmerkenValidator/IsVolledigException.cls.xml
===================================================================
diff -u -r32038 -r36318
--- APPS/PM/Maatwerk/impl/KenmerkenValidator/IsVolledigException.cls.xml	(.../IsVolledigException.cls.xml)	(revision 32038)
+++ APPS/PM/Maatwerk/impl/KenmerkenValidator/IsVolledigException.cls.xml	(.../IsVolledigException.cls.xml)	(revision 36318)
@@ -38,18 +38,21 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ToString">
+<Method name="ToStream">
 <FormalSpec>Prefix:%String=""</FormalSpec>
-<ReturnType>%String</ReturnType>
+<ReturnType>%GlobalCharacterStream</ReturnType>
 <Implementation><![CDATA[
-	#dim Result As %String = ""
+	set Stream = ##class(%GlobalCharacterStream).%New()
 	#dim Opmerkingen As %ListOfDataTypes = ..MaakOpmerkingenLijst(..PropertyNamen)
 
-	Set Result = Result _ ##class(TECH.ListUtils).ListToPieces(Opmerkingen, $$$CRLF)
-	Set Result = Result _ $$$CRLF _ $$$CRLF
-	Set Result = Result _ ##class(Tools.ObjectDumper.CodeCreator).%New(..IngegevenKenmerken).ToString()
+	do Stream.Write(##class(TECH.ListUtils).ListToPieces(Opmerkingen, $$$CRLF))
+	do Stream.WriteLine("")
+	do Stream.WriteLine("")
+	do Stream.WriteLine(##class(Tools.ObjectDumper.CodeCreator).%New(..IngegevenKenmerken).ToString())
+	do Stream.WriteLine("")
+	do Stream.CopyFrom(##super(Prefix))
 	
-	Quit Result
+	quit Stream
 ]]></Implementation>
 </Method>