Index: vhTest/Fake/DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r38847 -r39869
--- vhTest/Fake/DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 38847)
+++ vhTest/Fake/DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 39869)
@@ -7,6 +7,10 @@
 <Type>DOM.EC.Winkelkar.GroepLijn</Type>
 </Property>
 
+<Property name="ID">
+<Type>%String</Type>
+</Property>
+
 <Method name="GeefLijnIterator">
 <Description>
 Een iterator over de lijnen van de lijst</Description>
@@ -21,12 +25,13 @@
 </Method>
 
 <Method name="%OnNew">
-<FormalSpec>ApplicatieID:%String</FormalSpec>
+<FormalSpec>ApplicatieID:%String,ID:%String="DummyID"</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##super(ApplicatieID)
+	Set ..ID = ID
 	Do ..Init()
 	Quit $$$OK
 ]]></Implementation>
@@ -42,12 +47,20 @@
 
 <Method name="GeefID">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "DummyID"
+<Implementation><![CDATA[	Quit ..ID
 ]]></Implementation>
 </Method>
 
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
+<DefaultData>WinkelkarDefaultData1</DefaultData>
+<Data name="WinkelkarDefaultData1">
+<Structure>listnode</Structure>
+<Subscript>"Winkelkar"</Subscript>
+<Value name="1">
+<Value>ID</Value>
+</Value>
+</Data>
 </Storage>
 </Class>