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.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]}
Index: openacs-4/packages/xotcl-core/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/index.tcl,v
diff -u -N -r1.7 -r1.7.10.1
--- openacs-4/packages/xotcl-core/www/index.tcl	8 Aug 2007 09:57:17 -0000	1.7
+++ openacs-4/packages/xotcl-core/www/index.tcl	16 Sep 2014 21:50:10 -0000	1.7.10.1
@@ -36,7 +36,7 @@
 proc info_classes {cl key {dosort 0}} {
   upvar all_classes all_classes
   set infos ""
-  set classes [$cl info $key]
+  set classes [::xo::getObjectProperty $cl $key]
   if {$dosort} {
     set classes [lsort $classes]
   }
@@ -52,7 +52,11 @@
 }
 
 set output "<ul>"
-foreach cl [lsort [::xotcl::Class allinstances]] {
+set classes [::xotcl::Class allinstances]
+if {[info commands ::nx::Class] ne ""} {
+    lappend classes {*}[nx::Class info instances -closure]
+}
+foreach cl [lsort $classes] {
   if {!$all_classes && [string match "::xotcl::*" $cl]} \
       continue
   
@@ -63,9 +67,9 @@
   append output [info_classes $cl mixin]
   append output [info_classes $cl instmixin]
 
-  foreach key {procs instprocs} {
+  foreach key {proc instproc} {
     set infos ""
-    foreach i [lsort [$cl info $key]] {append infos [::xotcl::api method_link $cl $key $i] ", "}
+    foreach i [lsort [::xo::getObjectProperty $cl $key]] {append infos [::xotcl::api method_link $cl $key $i] ", "}
     set infos [string trimright $infos ", "]
     if {$infos ne ""} {
       append output "<li><em>$key:</em> $infos</li>\n"
Index: openacs-4/packages/xotcl-core/www/show-object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v
diff -u -N -r1.15.6.10 -r1.15.6.11
--- openacs-4/packages/xotcl-core/www/show-object.tcl	10 Sep 2014 20:19:27 -0000	1.15.6.10
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	16 Sep 2014 21:50:10 -0000	1.15.6.11
@@ -196,9 +196,9 @@
   #
   # compute list of classes with siblings
   set class_hierarchy [list]
-  foreach c [DO $object info superclass] {
+  foreach c [DO xo::getObjectProperty $object superclass] {
     if {$c eq "::xotcl::Object"} {continue}
-    lappend class_hierarchy {*}[DO $c info subclass]
+    lappend class_hierarchy {*}[DO xo::getObjectProperty $c subclass]
   }
   if {[llength $class_hierarchy]>5} {set class_hierarchy {}}
   lappend class_hierarchy {*}[DO $object info heritage]