Index: generic/gentclAPI.tcl
===================================================================
diff -u -r1008a85cf8fe5d95365568f6c765a83389028ff2 -rf93a860bacabe371e1f01bd3f3841015c6b14a21
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 1008a85cf8fe5d95365568f6c765a83389028ff2)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision f93a860bacabe371e1f01bd3f3841015c6b14a21)
@@ -197,7 +197,7 @@
 $intro
   if (ArgumentParse(interp, objc, objv, $obj, objv[0], 
                      method_definitions[$idx].paramDefs, 
-                     method_definitions[$idx].nrParameters, 
+                     method_definitions[$idx].nrParameters, 1,
                      &pc) != TCL_OK) {
     return TCL_ERROR;
   } else {
@@ -285,7 +285,8 @@
 
 static int ArgumentParse(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], 
                          XOTclObject *obj, Tcl_Obj *procName,
-                         XOTclParam CONST *paramPtr, int nrParameters, parseContext *pc);
+                         XOTclParam CONST *paramPtr, int nrParameters, int doCheck,
+			 parseContext *pc);
 
 static int getMatchObject(Tcl_Interp *interp, Tcl_Obj *patternObj, Tcl_Obj *origObj,
 			  XOTclObject **matchObject, CONST char **pattern);