Index: TECH/ClassInfo/MethodDefinition.cls.xml
===================================================================
diff -u -r924 -r931
--- TECH/ClassInfo/MethodDefinition.cls.xml	(.../MethodDefinition.cls.xml)	(revision 924)
+++ TECH/ClassInfo/MethodDefinition.cls.xml	(.../MethodDefinition.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 16:10:54">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-10 16:15:01">
 <Class name="TECH.ClassInfo.MethodDefinition">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,TECH.ClassInfo.QNameFinder</Super>
-<TimeChanged>62158,58253.29557</TimeChanged>
+<TimeChanged>62160,58574.962852</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="MethodDefinition">
@@ -98,14 +98,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="UpdateParameters">
+<Implementation><![CDATA[	Set ..MethodDefinition.FormalSpec = ..GeefParametersToString()
+]]></Implementation>
+</Method>
+
 <Method name="Save">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..MethodDefinition.FormalSpec = ..GeefParametersToString()
+	Do ..UpdateParameters()
+	//Do ..MethodDefinition.Implementation.Flush()
 	Do ..MethodDefinition.Implementation.Rewind()
-	Quit ..MethodDefinition.%Save()
+	Set Status = ..MethodDefinition.%Save()
+	Do ..MethodDefinition.Implementation.Rewind()
+	Quit Status
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2757493519"/>
+<Checksum value="2483780578"/>
 </Export>