Index: library/lib/xotcl1.xotcl
===================================================================
diff -u -r901ceb8f58714e31d28ed3277923fc69c085d252 -r464811a4aaa475de10e834b0a009521446163fc0
--- library/lib/xotcl1.xotcl	(.../xotcl1.xotcl)	(revision 901ceb8f58714e31d28ed3277923fc69c085d252)
+++ library/lib/xotcl1.xotcl	(.../xotcl1.xotcl)	(revision 464811a4aaa475de10e834b0a009521446163fc0)
@@ -383,7 +383,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] mixin $class}
+  Object instproc ismixin     {class}  {::xotcl::is [self] hasmixin $class}
   Object instproc istype      {class}  {::xotcl::is [self] type $class}
 
   ::xotcl::alias Object contains ::xotcl::classes::xotcl2::Object::contains
@@ -478,7 +478,7 @@
 
   # support for XOTcl 1.* specific convenience routines
   Object instproc hasclass cl {
-    if {[::xotcl::is [self] mixin $cl]} {return 1}
+    if {[::xotcl::is [self] hasmixin $cl]} {return 1}
     ::xotcl::is [self] type $cl
   }
   Object instproc filtersearch {filter} {