Index: TECH/ClassInfo/ClassDefinition.cls.xml
===================================================================
diff -u -r924 -r931
--- TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 924)
+++ TECH/ClassInfo/ClassDefinition.cls.xml	(.../ClassDefinition.cls.xml)	(revision 931)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 14:56:15">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-10 08:45:32">
 <Class name="TECH.ClassInfo.ClassDefinition">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,TECH.ClassInfo.QNameFinder</Super>
-<TimeChanged>62158,53774.693322</TimeChanged>
+<TimeChanged>62160,31607.215478</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ClassDefinition">
@@ -115,7 +115,17 @@
 
 <Method name="Save">
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit ..ClassDefinition.%Save()
+<Implementation><![CDATA[
+	Set Status = ..ClassDefinition.%Save()
+	
+	Set Methods = ..GeefMethods()
+	While (Methods.HasNext())
+	{
+		Set Method = Methods.Next()
+		Do Method.GeefImplementatie().Rewind()
+	}
+	
+	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -144,5 +154,5 @@
 <Type>%Library.CustomStorage</Type>
 </Storage>
 </Class>
-<Checksum value="899011169"/>
+<Checksum value="3758335963"/>
 </Export>