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 -N -r1.78.2.6 -r1.78.2.7
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	30 Dec 2015 18:15:54 -0000	1.78.2.6
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	2 Jan 2016 00:06:38 -0000	1.78.2.7
@@ -828,15 +828,9 @@
       return $result
     }
     "isclass" {
-      if {[info commands $o] eq ""} {return 0}
-      if {[catch {set p [$o info precedence]}]} {return 0}
-      if {"::xotcl::Object" in $p} {return [expr {"::xotcl::Class" in $p}]}
       return [nsf::is class $o]
     }
     "isobject" {
-      if {[info commands $o] eq ""} {return 0}
-      if {[catch {set p [$o info precedence]}]} {return 0}
-      if {"::xotcl::Object" in $p} {return 1}
       return [nsf::is object $o]
     }
     "isbaseclass" {