Index: generic/gentclAPI.tcl
===================================================================
diff -u -r87c6a11296ada89c007cc2ed33df6887ac53c740 -rdb9cc86bb6df8dadf59f951a504c908fb8d14ef0
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 87c6a11296ada89c007cc2ed33df6887ac53c740)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision db9cc86bb6df8dadf59f951a504c908fb8d14ef0)
@@ -31,6 +31,7 @@
 			    ClientData *clientData, Tcl_Obj **outObjPtr) {
   int index, result;
   $opts
+  (void)pPtr;
   result = Tcl_GetIndexFromObj(interp, objPtr, opts, "$argname", 0, &index);
   *clientData = (ClientData) INT2PTR(index + 1);
   *outObjPtr = objPtr;
@@ -102,6 +103,7 @@
           {  if (!obj) return NsfObjErrType(interp, NULL, objv[0], "Object", NULL);}
     }
     ""    {
+      append intro "  (void)clientData;\n"
       set a [list]
       set if [list]
       array set cd {arglist "" ifDefs ""}