Index: TECH/KeyValueList.cls.xml
===================================================================
diff -u -r806 -r995
--- TECH/KeyValueList.cls.xml	(.../KeyValueList.cls.xml)	(revision 806)
+++ TECH/KeyValueList.cls.xml	(.../KeyValueList.cls.xml)	(revision 995)
@@ -13,6 +13,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToStream">
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	Set Stream = ##class(%GlobalCharacterStream).%New()
+	Set ListIterator = ##class(TECH.ListIterator).%New($this)
+	While ListIterator.HasNext() {
+		#dim KeyValuePair As TECH.KeyValuePair = ListIterator.Next()
+		Do Stream.WriteLine("Key:"_KeyValuePair.Key_", Value:"_KeyValuePair.Value)
+	}
+	Quit Stream
+]]></Implementation>
+</Method>
+
 <Storage name="Custom">
 <Type>%Library.CompleteCustomStorage</Type>
 </Storage>