Index: generic/xotcl.c
===================================================================
diff -u -r5e70792b640c7d8b9a7235ba529dbfc0af2b84ad -rf20a7f81bcae20a40c4990afd431615ca1914c51
--- generic/xotcl.c	(.../xotcl.c)	(revision 5e70792b640c7d8b9a7235ba529dbfc0af2b84ad)
+++ generic/xotcl.c	(.../xotcl.c)	(revision f20a7f81bcae20a40c4990afd431615ca1914c51)
@@ -14035,18 +14035,14 @@
 }
 
 /*
-objectInfoMethod istype XOTclObjInfoIsTypeMethod {
-  {-argName "objectkind" -type "object|class|baseclass|metaclass"}
+objectInfoMethod is XOTclObjInfoIsMethod {
+  {-argName "objectkind" -type "class|baseclass|metaclass"}
 }
 */
-static int XOTclObjInfoIsTypeMethod(Tcl_Interp *interp, XOTclObject *object, int objectkind) {
+static int XOTclObjInfoIsMethod(Tcl_Interp *interp, XOTclObject *object, int objectkind) {
   int success = 0;
 
   switch (objectkind) {
-  case ObjectkindObjectIdx:
-    success = 1;
-    break;
-
   case ObjectkindClassIdx:
     success = (XOTclObjectIsClass(object) > 0);
     break;
@@ -14065,8 +14061,6 @@
   return TCL_OK;
 }
 
-
-
 /*
 objectInfoMethod method XOTclObjInfoMethodMethod {
   {-argName "infomethodsubcmd" -type "args|body|definition|handle|parameter|parametersyntax|type|precondition|postcondition"}