Index: generic/gentclAPI.tcl
===================================================================
diff -u -rfb1840d39d6069f7b26e0d982448ef2602782e9e -recc8a110c338877202b900868da32eb8dcd561ad
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision fb1840d39d6069f7b26e0d982448ef2602782e9e)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision ecc8a110c338877202b900868da32eb8dcd561ad)
@@ -43,6 +43,7 @@
     }
     switch -glob $type {
       "NULL"       {set converter String}
+      "boolean"    {set converter Boolean}
       "class"      {set converter Class}
       "object"     {set converter Object}
       "tclobj"     {set converter Tclobj}
@@ -112,6 +113,7 @@
       set calledArg $varName
       switch -glob $(-type) {
         ""           {set type "char *"}
+        "boolean"    {set type "int "}
         "class"      {set type "XOTclClass *"}
         "object"     {set type "XOTclObject *"}
         "tclobj"     {set type "Tcl_Obj *"}
@@ -192,7 +194,7 @@
 static int
 $d(stub)(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
 $intro
-  if (parseObjv(interp, objc, objv, 1, &(method_definitions[$d(idx)].ifd[0]), &pc) != TCL_OK) {
+  if (parseObjv(interp, objc, objv, objv[0], &(method_definitions[$d(idx)].ifd[0]), &pc) != TCL_OK) {
     return TCL_ERROR;
   } else {
     $cDefs
@@ -213,7 +215,7 @@
   argDefinition ifd[10];
 } methodDefinition;
 
-static int parseObjv(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], int start,
+static int parseObjv(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], Tcl_Obj *procName,
 		     argDefinition CONST *ifdPtr, parseContext *pc);
 
 static int getMatchObject(Tcl_Interp *interp, Tcl_Obj *patternObj, Tcl_Obj *origObj,