Index: generic/xotcl.c
===================================================================
diff -u -r901ceb8f58714e31d28ed3277923fc69c085d252 -r464811a4aaa475de10e834b0a009521446163fc0
--- generic/xotcl.c	(.../xotcl.c)	(revision 901ceb8f58714e31d28ed3277923fc69c085d252)
+++ generic/xotcl.c	(.../xotcl.c)	(revision 464811a4aaa475de10e834b0a009521446163fc0)
@@ -11341,7 +11341,7 @@
 /*
 xotclCmd is XOTclIsCmd {
   {-argName "object" -required 1 -type tclobj}
-  {-argName "objectkind" -type "type|object|class|baseclass|metaclass|mixin"}
+  {-argName "objectkind" -type "type|object|class|baseclass|metaclass|hasmixin"}
   {-argName "value" -required 0 -type tclobj}
 }
 */
@@ -11382,8 +11382,8 @@
       && IsBaseClass((XOTclClass*)object);
     break;
 
-  case ObjectkindMixinIdx:
-    if (value == NULL) return XOTclObjErrArgCnt(interp, NULL, NULL, "<object> mixin <class>");
+  case ObjectkindHasmixinIdx:
+    if (value == NULL) return XOTclObjErrArgCnt(interp, NULL, NULL, "<object> hasmixin <class>");
     success = (GetObjectFromObj(interp, obj, &object) == TCL_OK)
       && (GetClassFromObj(interp, value, &cl, 0) == TCL_OK)
       && hasMixin(interp, object, cl);