Index: svn/InterfaceControleur.cls.xml
===================================================================
diff -u -r1699 -r1703
--- svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1699)
+++ svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1703)
@@ -51,11 +51,11 @@
 <Method name="ControleerMethods">
 <FormalSpec>Classname:%String</FormalSpec>
 <Implementation><![CDATA[
+	set FormalSpecParser = ##class(TECH.ClassInfo.FormalSpecParser).%New()
 	set Class = ##class(%Dictionary.ClassDefinition).%OpenId(Classname)
 	set itMethods = ##class(TECH.ListIterator).%New(Class.Methods)
 	while itMethods.HasNext() {
 		#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
-		set FormalSpecParser = ##class(TECH.ClassInfo.FormalSpecParser).%New()
 		set itParameters = ##class(TECH.ListIterator).%New(FormalSpecParser.Parse(Method.FormalSpec))
 		while itParameters.HasNext() {
 			#dim Parameter As TECH.ClassInfo.ParameterDefinition = itParameters.Next()