Index: generic/gentclAPI.tcl
===================================================================
diff -u -rb8af431b779825e6d2cfa7a8b334158da1ea9370 -rc942f4e117d2aa3c8594702e0476a3f73a4147df
--- generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision b8af431b779825e6d2cfa7a8b334158da1ea9370)
+++ generic/gentclAPI.tcl	(.../gentclAPI.tcl)	(revision c942f4e117d2aa3c8594702e0476a3f73a4147df)
@@ -89,14 +89,14 @@
       set if [list "XOTclClass *cl"]
       append intro \
           "  XOTclClass *cl =  XOTclObjectToClass(clientData);" \n \
-          {  if (!cl) return XOTclObjErrType(interp, objv[0], "Class");}
+          {  if (!cl) return XOTclObjErrType(interp, objv[0], "Class", "");}
     }
     object {
       set a  [list obj]
       set if [list "XOTclObject *obj"]
       append intro \
           "  XOTclObject *obj =  (XOTclObject *)clientData;" \n \
-          {  if (!obj) return XOTclObjErrType(interp, objv[0], "Object");}
+          {  if (!obj) return XOTclObjErrType(interp, objv[0], "Object", "");}
     }
     ""    {
       set a [list]