Index: Tools/ObjectDumper/Base.cls.xml
===================================================================
diff -u -r1032 -r1687
--- Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 1032)
+++ Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 1687)
@@ -14,15 +14,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Writer">
+<Type>TECH.Output.Writer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Object:%Library.Base,MagObjectReferentieToevoegen:%Boolean=1</FormalSpec>
+<FormalSpec>Object:%Library.Base,MagObjectReferentieToevoegen:%Boolean=1,Writer:TECH.Output.Writer=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..Object = Object 
 	set ..MagObjectReferentieToevoegen = MagObjectReferentieToevoegen
+	Set ..Writer = $$$Implementation(Writer, ##class(TECH.Output.impl.Writer).%New())
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -105,7 +111,7 @@
 <Implementation><![CDATA[
 	#dim itResult = ##class(TECH.ListIterator).%New(..GetResult())
 	while itResult.HasNext() {
-		write !,itResult.Next()
+		Do ..Writer.WriteLine(itResult.Next())
 	}
 ]]></Implementation>
 </Method>
@@ -114,42 +120,49 @@
 <Abstract>1</Abstract>
 <FormalSpec>List:%Collection.AbstractList,Property:Tools.ObjectDumper.dto.Property</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="AddArrayOfDataTypes">
 <Abstract>1</Abstract>
 <FormalSpec>List:%Collection.AbstractList,PropertyName:%String</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="AddListOfDataTypes">
 <Abstract>1</Abstract>
 <FormalSpec>List:%Collection.AbstractList,PropertyName:%String</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="AddArrayOfObjects">
 <Abstract>1</Abstract>
 <FormalSpec>List:%Collection.AbstractList,PropertyName:%String</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="AddListOfObjects">
 <Abstract>1</Abstract>
 <FormalSpec>List:%Collection.AbstractList,PropertyName:%String</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="AddMultiDimensional">
 <Abstract>1</Abstract>
 <FormalSpec>List:%Collection.AbstractList,PropertyName:%String</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="AddObject">
 <Abstract>1</Abstract>
 <FormalSpec>List:%Collection.AbstractList,PropertyName:%String</FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GetProperties">
@@ -171,7 +184,6 @@
 		set dtoProperty.ClassName = ..GetClassName(PropertyDefinition)
 		set dtoProperty.ClassType = ..GetClassType(dtoProperty.ClassName,PropertyDefinition.Collection)	
 		set dtoProperty.MultiDimensional = PropertyDefinition.MultiDimensional
-	
 		do Properties.Insert(dtoProperty)
 	}