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.17 -r1.72.2.18
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	9 Sep 2014 16:38:50 -0000	1.72.2.17
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	16 Sep 2014 21:50:09 -0000	1.72.2.18
@@ -839,11 +839,11 @@
   switch $what {
     "mixin" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info mixin]}
-      return [$o info object mixin classes]
+      return [$o info object mixins]
     }
     "instmixin" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info instmixin]}
-      return [$o info mixin classes]
+      return [$o info mixins]
     }
     "instproc" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info instprocs {*}$args]}
@@ -878,16 +878,16 @@
       return [$o info class]
     }
     "superclass" {
-      #if {"::xotcl::Object" in [$o info precedence]} {return [$o info superclass]}
-      return [$o info superclass]
+      if {"::xotcl::Object" in [$o info precedence]} {return [$o info superclass]}
+      return [$o info superclasses]
     }
     "heritage" {
       #if {"::xotcl::Object" in [$o info precedence]} {return [$o info heritage]}
       return [$o info heritage]
     }
     "subclass" {
-      #if {"::xotcl::Object" in [$o info precedence]} {return [$o info subclass]}
-      return [$o info subclass]
+      if {"::xotcl::Object" in [$o info precedence]} {return [$o info subclass]}
+      return [$o info subclasses]
     }
     "parameter" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info parameter]}