Index: TECH/KeyValue/ListBase.cls.xml
===================================================================
diff -u -r1785 -r1889
--- TECH/KeyValue/ListBase.cls.xml	(.../ListBase.cls.xml)	(revision 1785)
+++ TECH/KeyValue/ListBase.cls.xml	(.../ListBase.cls.xml)	(revision 1889)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.KeyValue.ListBase">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>%ListOfObjects</Super>
 
 <Parameter name="ELEMENTTYPE">
@@ -29,6 +30,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToString">
+<FormalSpec>KVPDelimiter:%String=";"</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Text As %String = ""
+	#dim ListIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New($this)
+	While (ListIterator.HasNext()) {
+		#Dim KeyValuePair As TECH.KeyValuePair = ListIterator.Next()
+		Set Text = $$$IfLength(Text,"",KVPDelimiter) _ ("Key=" _ KeyValuePair.Key _ ",Value=" _ KeyValuePair.Value)
+	}
+	
+	Quit Text
+]]></Implementation>
+</Method>
+
 <Method name="GetKeys">
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[