Index: TECH/DataTransferObject.cls.xml
===================================================================
diff -u -r1496 -r2677
--- TECH/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 1496)
+++ TECH/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 2677)
@@ -11,6 +11,30 @@
 <Default>1</Default>
 <Flags>ENUM</Flags>
 </Parameter>
+
+<Method name="ToStream">
+<ReturnType>%Stream.Object</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	set Iterator = ##class(TECH.ListIterator).%New(##class(Tools.ObjectDumper.Dumper).%New($this).GetResult())
+	while Iterator.HasNext() {
+		do Stream.WriteLine(Iterator.Next())	
+	}
+	quit Stream
+]]></Implementation>
+</Method>
+
+<Method name="ToDisplayStream">
+<ReturnType>%Stream.Object</ReturnType>
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	set Iterator = ##class(TECH.ListIterator).%New(##class(Tools.ObjectDumper.DisplayDumper).%New($this).GetResult())
+	while Iterator.HasNext() {
+		do Stream.WriteLine(Iterator.Next())	
+	}
+	quit Stream
+]]></Implementation>
+</Method>
 </Class>