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>
Index: Tools/ObjectDumper/TabSeparatedWriter.cls.xml
===================================================================
diff -u -r1688 -r1709
--- Tools/ObjectDumper/TabSeparatedWriter.cls.xml	(.../TabSeparatedWriter.cls.xml)	(revision 1688)
+++ Tools/ObjectDumper/TabSeparatedWriter.cls.xml	(.../TabSeparatedFormatter.cls.xml)	(revision 1709)
@@ -1,11 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="Tools.ObjectDumper.TabSeparatedWriter">
-<Super>TECH.Output.impl.Writer</Super>
+<Class name="Tools.ObjectDumper.TabSeparatedFormatter">
+<Super>TECH.Output.impl.Formatter</Super>
 
-<Method name="Write">
+<Method name="Format">
 <FormalSpec>String:TECH.String=""</FormalSpec>
-<Implementation><![CDATA[	write $replace(String," = ",$$$TAB)
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $replace(String," = ",$$$TAB)
 ]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 1709 refers to a dead (removed) revision in file `Tools/ObjectDumper/TabSeparatedWriter.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?