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.72.2.3 -r1.72.2.4
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	24 Sep 2013 20:17:46 -0000	1.72.2.3
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Sep 2013 15:47:29 -0000	1.72.2.4
@@ -845,12 +845,14 @@
 	}
 	"isclass" {
 	    if {[info command $o] eq ""} {return 0}
-	    if {"::xotcl::Object" in [$o info precedence]} {return [expr {"::xotcl::Class" in [$o info precedence]}]}
+	    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 command $o] eq ""} {return 0}
-	    if {"::xotcl::Object" in [$o info precedence]} {return 1}
+	    if {[catch {set p [$o info precedence]}]} {return 0}
+	    if {"::xotcl::Object" in $p} {return 1}
 	    return [nsf::is object $o]
 	}
 	"instargs" {