Index: Tools/ObjectDumper/Base.cls.xml
===================================================================
diff -u -r1687 -r1709
--- Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 1687)
+++ Tools/ObjectDumper/Base.cls.xml	(.../Base.cls.xml)	(revision 1709)
@@ -19,8 +19,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Formatter">
+<Type>TECH.Output.Formatter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Object:%Library.Base,MagObjectReferentieToevoegen:%Boolean=1,Writer:TECH.Output.Writer=""</FormalSpec>
+<FormalSpec>Object:%Library.Base,MagObjectReferentieToevoegen:%Boolean=1,Writer:TECH.Output.Writer="",Formatter:TECH.Output.Formatter</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -29,6 +34,7 @@
 	set ..Object = Object 
 	set ..MagObjectReferentieToevoegen = MagObjectReferentieToevoegen
 	Set ..Writer = $$$Implementation(Writer, ##class(TECH.Output.impl.Writer).%New())
+	Set ..Formatter = $$$Implementation(Formatter, ##class(TECH.Output.impl.Formatter).%New())
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -111,7 +117,7 @@
 <Implementation><![CDATA[
 	#dim itResult = ##class(TECH.ListIterator).%New(..GetResult())
 	while itResult.HasNext() {
-		Do ..Writer.WriteLine(itResult.Next())
+		Do ..Writer.WriteLine(..Formatter.Format(itResult.Next()))
 	}
 ]]></Implementation>
 </Method>