Index: Tools/Wlip.cls.xml
===================================================================
diff -u -r2933 -r2934
--- Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2933)
+++ Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2934)
@@ -36,7 +36,13 @@
 
 <Method name="ObjToXML">
 <FormalSpec>Object:%CacheString,Break:%Boolean=$$$False</FormalSpec>
-<Implementation><![CDATA[	Do ..String($$ObjToXML^vhLib(Object), Break)
+<Implementation><![CDATA[
+	If $$$Not(Object.%Extends("%XML.Adaptor")) {
+		Do ..String(" !!! Item erft niet over van %XML.Adaptor. ObjToText wordt gebruikt !!! ")	
+		Do ..ObjToText(Object, Break)
+	} else {
+		Do ..String($$ObjToXML^vhLib(Object), Break)
+	}
 ]]></Implementation>
 </Method>
 
@@ -108,6 +114,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ListOfObjectsToText">
+<FormalSpec>List:%ListOfDataTypes,ListInfo:TECH.String="",Break:%Boolean=$$$False</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Wlip("Lijst: "_ListInfo,3,1,1)
+	Set ListIt = ##class(TECH.ListIterator).%New(List)
+	#dim Aantal As TECH.Integer = 0
+	While ListIt.HasNext() {
+		Do ..String($Increment(Aantal)_"-> ")
+		Do ..ObjToText(ListIt.Next(), Break)
+	}
+	Break:Break
+]]></Implementation>
+</Method>
+
+<Method name="ListOfObjectsToXML">
+<FormalSpec>List:%ListOfObjects,ListInfo:TECH.String="",Break:%Boolean=$$$False</FormalSpec>
+<Implementation><![CDATA[
+	Do ..Wlip("Lijst: "_ListInfo,3,1,1)
+	Set ListIt = ##class(TECH.ListIterator).%New(List)
+	#dim Aantal As TECH.Integer = 0
+	While ListIt.HasNext() {
+		Do ..String($Increment(Aantal)_"-> ")
+		Do ..ObjToXML(ListIt.Next(), Break)
+	}
+	Break:Break
+]]></Implementation>
+</Method>
+
 <Method name="ListOfDataTypes">
 <FormalSpec>List:%ListOfDataTypes,ListInfo:TECH.String="",Break:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[