Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.93.2.4 -r1.93.2.5
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	23 Jul 2019 16:51:49 -0000	1.93.2.4
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	23 Jul 2019 17:06:23 -0000	1.93.2.5
@@ -54,7 +54,7 @@
 
 set ::xo::naviserver [expr {[ns_info name] eq "NaviServer"}]
 
-if {[info commands ::nx::Object] ne ""} {
+if {[nsf::is object ::nx::Object]} {
   ns_log notice "Defining minimal XOTcl 1 compatibility"
   ::nsf::method::alias ::xo::Attribute instvar ::nsf::methods::object::instvar
 
@@ -896,7 +896,7 @@
       return [nsf::is object $o]
     }
     "isbaseclass" {
-      if {[info commands $o] eq ""} {return 0}
+      if {![nsf::is class $o]} {return 0}
       if {[catch {set p [$o info precedence]}]} {return 0}
       return [expr {[lindex $p end] eq $o}]
     }