Index: Tools/Wlip.cls.xml
===================================================================
diff -u -r2098 -r2103
--- Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2098)
+++ Tools/Wlip.cls.xml	(.../Wlip.cls.xml)	(revision 2103)
@@ -120,6 +120,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="XMLAdapter">
+<FormalSpec>XMLAdapter:%XML.Adaptor</FormalSpec>
+<Implementation><![CDATA[	Do ..Wlip($$ObjToXML^vhLib(XMLAdapter),3)
+]]></Implementation>
+</Method>
+
 <Method name="TimeFromPreviousCall">
 <FormalSpec>String:TECH.String="",Break:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[