Index: zTryout/CSC/TestKlas2.cls.xml
===================================================================
diff -u -r1074 -r1133
--- zTryout/CSC/TestKlas2.cls.xml	(.../TestKlas2.cls.xml)	(revision 1074)
+++ zTryout/CSC/TestKlas2.cls.xml	(.../TestKlas2.cls.xml)	(revision 1133)
@@ -1,20 +1,31 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="zTryout.CSC.TestKlas2">
+<ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="DoeIets">
-<FormalSpec>i:%Integer=1</FormalSpec>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	Quit i
-
-
-
-
-
+<Implementation><![CDATA[	Quit i
 ]]></Implementation>
 </Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.CSC.TestKlas2D</DataLocation>
+<DefaultData>TestKlas2DefaultData</DefaultData>
+<IdLocation>^zTryout.CSC.TestKlas2D</IdLocation>
+<IndexLocation>^zTryout.CSC.TestKlas2I</IndexLocation>
+<StreamLocation>^zTryout.CSC.TestKlas2S</StreamLocation>
+<Data name="TestKlas2DefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
 </Class>
 </Export>