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 -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]