Index: vhUnitTest/TECH/ListUtils/Object.cls.xml
===================================================================
diff -u -r957 -r1590
--- vhUnitTest/TECH/ListUtils/Object.cls.xml	(.../Object.cls.xml)	(revision 957)
+++ vhUnitTest/TECH/ListUtils/Object.cls.xml	(.../Object.cls.xml)	(revision 1590)
@@ -10,6 +10,11 @@
 <Property name="Data">
 <Type>%String</Type>
 </Property>
+
+<Method name="GeefData">
+<Implementation><![CDATA[	quit ..Data
+]]></Implementation>
+</Method>
 </Class>