Index: TECH/ClassInfo/FormalSpecParser.cls.xml
===================================================================
diff -u -r9 -r3150
--- TECH/ClassInfo/FormalSpecParser.cls.xml	(.../FormalSpecParser.cls.xml)	(revision 9)
+++ TECH/ClassInfo/FormalSpecParser.cls.xml	(.../FormalSpecParser.cls.xml)	(revision 3150)
@@ -26,20 +26,18 @@
 	
 	Set ..Position = 1
 	
-	While (..Position <= $Length(..FormalSpec))
-	{	
-		Set ParameterName = ..ParsePart()
+	While (..Position <= $Length(..FormalSpec)) {	
+		#dim ParameterName As %String = ..ParsePart()
 		
-		Set ParameterType = ""
-		If (..GeefChar()  = ":")
+		#dim ParameterType As %String = ""
+		if (..GeefChar()  = ":")
 		{
 			Set ..Position = ..Position + 1
 			Set ParameterType = ..ParsePart()
 		}
 		
-		Set ParameterDefault = ""
-		If (..GeefChar() = "=")
-		{
+		#dim ParameterDefault As %String = ""
+		If (..GeefChar() = "=") {
 			Set ..Position = ..Position + 1
 			Set ParameterDefault = ..ParsePart()
 		}
@@ -61,8 +59,7 @@
 	Set AantalOpenBrackets = 0
 	Set AantalQuotes = 0
 	Set Char = ..GeefChar()
-	While (..Position <= $Length(..FormalSpec)) && ((AantalOpenBrackets > 0) || (AantalQuotes#2 = 1) || ((Char '= "=") && (Char '= ",") && (Char '= ":")))
-	{
+	While (..Position <= $Length(..FormalSpec)) && ((AantalOpenBrackets > 0) || (AantalQuotes#2 = 1) || ((Char '= "=") && (Char '= ",") && (Char '= ":")))	{
 		Set Part = Part _ Char
 		Set ..Position = ..Position + 1