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.22.2.2 -r1.22.2.3
--- openacs-4/packages/xotcl-core/www/show-object.tcl	10 Oct 2015 15:43:10 -0000	1.22.2.2
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	10 Oct 2015 15:51:13 -0000	1.22.2.3
@@ -230,7 +230,7 @@
 
     for {set level 1} {$level < $below} {incr level} {
       foreach sc $subclasses {
-        foreach c [DO $sc info subclass] {
+        foreach c [DO xo::getObjectProperty $sc subclass] {
           if {$c ni $subclasses} {
             lappend subclasses $c
           }