Index: generic/xotcl.c
===================================================================
diff -u -r58c2c3096136af10d87e4d2962c3d744a9e383bd -r023406d3ec3ce8115b89ae42b0c48c317c63ae0a
--- generic/xotcl.c	(.../xotcl.c)	(revision 58c2c3096136af10d87e4d2962c3d744a9e383bd)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 023406d3ec3ce8115b89ae42b0c48c317c63ae0a)
@@ -5296,7 +5296,7 @@
       if ((result = InvokeMethod(clientData, interp, objc-1, objv+1, cmd, obj, cl,
                                  methodName, frameType)) == TCL_ERROR) {
 	result = XOTclErrInProc(interp, cmdName,
-				cl ? cl->object.cmdName : NULL,
+				cl && cl->object.teardown ? cl->object.cmdName : NULL,
 				methodName);
       }
       unknown = rst->unknown;