Index: TECH/ClassInfo/FormalSpecParser.cls.xml
===================================================================
diff -u -r924 -r946
--- TECH/ClassInfo/FormalSpecParser.cls.xml	(.../FormalSpecParser.cls.xml)	(revision 924)
+++ TECH/ClassInfo/FormalSpecParser.cls.xml	(.../FormalSpecParser.cls.xml)	(revision 946)
@@ -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 15:32:36">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-14 08:59:17">
 <Class name="TECH.ClassInfo.FormalSpecParser">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62158,55955.164293</TimeChanged>
+<TimeChanged>62164,32435.997622</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Position">
@@ -60,14 +60,15 @@
 	Set Part = ""
 	Set AantalOpenBrackets = 0
 	Set AantalQuotes = 0
-	While (..Position <= $Length(..FormalSpec)) && ((AantalOpenBrackets > 0) || (AantalQuotes#2 = 1) || ((..GeefChar() '= "=") && (..GeefChar() '= ",") && (..GeefChar() '= ":")))
+	Set Char = ..GeefChar()
+	While (..Position <= $Length(..FormalSpec)) && ((AantalOpenBrackets > 0) || (AantalQuotes#2 = 1) || ((Char '= "=") && (Char '= ",") && (Char '= ":")))
 	{
-		Set Char = ..GeefChar()
-		Set Part = Part _ ..GeefChar()
+		Set Part = Part _ Char
 		Set ..Position = ..Position + 1
 		
 		Set AantalOpenBrackets = AantalOpenBrackets + (Char = "(") - (Char = ")")
 		Set AantalQuotes = AantalQuotes + (Char = """")
+		Set Char = ..GeefChar()
 	}
 	Quit Part
 ]]></Implementation>
@@ -76,9 +77,9 @@
 <Method name="GeefChar">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Extract(..FormalSpec,..Position,..Position)
+<Implementation><![CDATA[	Quit $Extract(..FormalSpec,..Position)
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2231910189"/>
+<Checksum value="3823917091"/>
 </Export>