Index: generic/gentclAPI.tcl
===================================================================
diff -u -rf0295d889aaf71709c63243685897dc3f11048f1 -r87c6a11296ada89c007cc2ed33df6887ac53c740
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision f0295d889aaf71709c63243685897dc3f11048f1)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision 87c6a11296ada89c007cc2ed33df6887ac53c740)
@@ -92,14 +92,14 @@
       set if [list "NsfClass *cl"]
       append intro \
           "  NsfClass *cl =  NsfObjectToClass(clientData);" \n \
-          {  if (!cl) return NsfObjErrType(interp, objv[0], "Class", NULL);}
+          {  if (!cl) return NsfObjErrType(interp, NULL, objv[0], "Class", NULL);}
     }
     object {
       set a  [list obj]
       set if [list "NsfObject *obj"]
       append intro \
           "  NsfObject *obj =  (NsfObject *)clientData;" \n \
-          {  if (!obj) return NsfObjErrType(interp, objv[0], "Object", NULL);}
+          {  if (!obj) return NsfObjErrType(interp, NULL, objv[0], "Object", NULL);}
     }
     ""    {
       set a [list]