Index: generic/xotcl.c
===================================================================
diff -u -r39952278bc1e3aa6dda5df7cbe4cffc399f63b98 -r18122dd21b99cf0d5b4cd01635048641a23aa051
--- generic/xotcl.c	(.../xotcl.c)	(revision 39952278bc1e3aa6dda5df7cbe4cffc399f63b98)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 18122dd21b99cf0d5b4cd01635048641a23aa051)
@@ -11541,6 +11541,18 @@
 }
 
 /*
+xotclCmd isobject XOTclIsObjectCmd {
+  {-argName "object" -required 1 -type tclobj}
+}
+*/
+static int XOTclIsObjectCmd(Tcl_Interp *interp, Tcl_Obj *valueObj) {
+  XOTclObject *object;
+  Tcl_SetBooleanObj(Tcl_GetObjResult(interp), GetObjectFromObj(interp, valueObj, &object) == TCL_OK);
+  return TCL_OK;
+}
+
+
+/*
 xotclCmd method XOTclMethodCmd {
   {-argName "object" -required 1 -type object}
   {-argName "-inner-namespace"}
@@ -12048,7 +12060,6 @@
 static int XOTclObjectpropertyCmd(Tcl_Interp *interp, Tcl_Obj *obj, int objectkind) {
   int success = TCL_ERROR;
   XOTclObject *object;
-  XOTclClass *cl;
 
   /* fprintf(stderr, "XOTclObjectpropertyCmd\n");*/