Index: library/lib/xotcl1.xotcl
===================================================================
diff -u -r29267f0c9db8387f58b03ffc124fc138ad88e463 -rbc6eb608936be7ce3ab17f64981902a4f51194d1
--- library/lib/xotcl1.xotcl	(.../xotcl1.xotcl)	(revision 29267f0c9db8387f58b03ffc124fc138ad88e463)
+++ library/lib/xotcl1.xotcl	(.../xotcl1.xotcl)	(revision bc6eb608936be7ce3ab17f64981902a4f51194d1)
@@ -386,7 +386,7 @@
   Object instproc isobject    {{object:substdefault "[self]"}} {::xotcl::is $object object}
   Object instproc isclass     {{class:substdefault  "[self]"}} {::xotcl::is $class class}
   Object instproc ismetaclass {{class:substdefault  "[self]"}} {::xotcl::is $class metaclass}
-  Object instproc ismixin     {class}  {::xotcl::is [self] hasmixin $class}
+  Object instproc ismixin     {class}  {::xotcl::is [self] object -hasmixin $class}
   Object instproc istype      {class}  {::xotcl::is [self] type $class}
 
   ::xotcl::alias Object contains ::xotcl::classes::xotcl2::Object::contains
@@ -481,7 +481,7 @@
 
   # support for XOTcl 1.* specific convenience routines
   Object instproc hasclass cl {
-    if {[::xotcl::is [self] hasmixin $cl]} {return 1}
+    if {[::xotcl::is [self] object -hasmixin $cl]} {return 1}
     ::xotcl::is [self] type $cl
   }
   Object instproc filtersearch {filter} {