Index: TODO
===================================================================
diff -u -rd9b42d77f43db84a9983cc3bbc4124cf0b52df29 -rabcb5e0cd5c1c27262daf76ab309e9c1f18f5ed5
--- TODO	(.../TODO)	(revision d9b42d77f43db84a9983cc3bbc4124cf0b52df29)
+++ TODO	(.../TODO)	(revision abcb5e0cd5c1c27262daf76ab309e9c1f18f5ed5)
@@ -1239,6 +1239,8 @@
 
 TODO: 
 - reflect changes in /is/objectproperty/info has/info is/ in migration guide
+- implement built-in-converter for "baseclass" and "metaclass"?
+
 - check equivalence of the following two commands
   in respect to fully-qualified names
          ::nsf::dispatch $obj ::nsf::cmd::ObjectInfo2::hastype $class
Index: library/xotcl/library/xotcl2.tcl
===================================================================
diff -u -rd9b42d77f43db84a9983cc3bbc4124cf0b52df29 -rabcb5e0cd5c1c27262daf76ab309e9c1f18f5ed5
--- library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision d9b42d77f43db84a9983cc3bbc4124cf0b52df29)
+++ library/xotcl/library/xotcl2.tcl	(.../xotcl2.tcl)	(revision abcb5e0cd5c1c27262daf76ab309e9c1f18f5ed5)
@@ -689,7 +689,7 @@
   # support for XOTcl specific convenience routines
   Object instproc hasclass cl {
     if {![::nsf::is class $cl]} {return 0}
-    if {[my ::nsf::cmd::ObjectInfo::hasmixin $cl]} {return 1}
+    if {[::nsf::dispatch [self] ::nsf::cmd::ObjectInfo::hasmixin $cl]} {return 1}
     ::nsf::dispatch [self] ::nsf::cmd::ObjectInfo::hastype $cl
   }
   Object instproc filtersearch {filter} {
Index: tests/parameters.tcl
===================================================================
diff -u -rd9b42d77f43db84a9983cc3bbc4124cf0b52df29 -rabcb5e0cd5c1c27262daf76ab309e9c1f18f5ed5
--- tests/parameters.tcl	(.../parameters.tcl)	(revision d9b42d77f43db84a9983cc3bbc4124cf0b52df29)
+++ tests/parameters.tcl	(.../parameters.tcl)	(revision abcb5e0cd5c1c27262daf76ab309e9c1f18f5ed5)
@@ -29,9 +29,14 @@
   ? {::nsf::isobject o1000} 0
   
   ? {::nsf::is class C} 1
-  ? {::nsf::is class C} 1
   ? {C info is class} 1
 
+  ? {::nsf::is baseclass ::nx::Object} 1
+  ? {::nx::Object info is baseclass} 1
+  ? {::nsf::is baseclass C} 0
+  ? {C info is baseclass} 0
+
+
   ? {::nsf::parametercheck object o1} 1
   ? {::nsf::parametercheck -nocomplain object o1} 1
   ? {::nsf::parametercheck -nocomplain object o1000} 0