Index: generic/gentclAPI.tcl
===================================================================
diff -u -N -rec070e95f0d54ebae32e27b9a3251d7ec05d39ad -rcad3e31c72e3d35d75e67c8ceb7f6a1a775336e1
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision ec070e95f0d54ebae32e27b9a3251d7ec05d39ad)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision cad3e31c72e3d35d75e67c8ceb7f6a1a775336e1)
@@ -155,17 +155,19 @@
       set if [list "NsfClass *cl"]
       set argNum 3
       append intro \
-          "  NsfClass *cl =  NsfObjectToClass(clientData);" \n\n \
-          "  assert(objc > 0);" \n \
+          "  NsfClass *cl;" \n\n \
+          "  assert(objc > 0);" \n\n \
+          "  cl = NsfObjectToClass(clientData);" \n \
           "  if (unlikely(cl == NULL)) return NsfDispatchClientDataError(interp, clientData, \"class\", ObjStr(objv\[0\]));"
     }
     object {
       set a  [list obj]
       set if [list "NsfObject *obj"]
       set argNum 3
       append intro \
-          "  NsfObject *obj =  (NsfObject *)clientData;" \n\n \
-          "  assert(objc > 0);" \n
+          "  NsfObject *obj;" \n\n \
+          "  assert(objc > 0);" \n\n \
+          "  obj = (NsfObject *)clientData;"
     }
     ""    {
       append intro "  (void)clientData;\n"