Index: generic/gentclAPI.tcl
===================================================================
diff -u -r485f041db31fc83046fbeba0d3e64beeb1abca1f -r2ce14fba0764a9fcbbe7cc2f582472526a58ddf0
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 485f041db31fc83046fbeba0d3e64beeb1abca1f)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 2ce14fba0764a9fcbbe7cc2f582472526a58ddf0)
@@ -25,7 +25,7 @@
   set enums [list]
   foreach d $domain {lappend enums $argname[string totitle [string map [list - _] $d]]Idx}
   subst {
-static int convertTo${name}(Tcl_Interp *interp, Tcl_Obj *objPtr, ClientData *clientData) {
+static int convertTo${name}(Tcl_Interp *interp, Tcl_Obj *objPtr, XOTclParam CONST *pPtr, ClientData *clientData) {
   $opts
   return Tcl_GetIndexFromObj(interp, objPtr, opts, "$argname", 0, (int *)clientData);
 }