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.22 -r1.22.2.1
--- openacs-4/packages/xotcl-core/www/show-object.tcl	2 Jul 2015 09:22:40 -0000	1.22
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	10 Oct 2015 15:40:55 -0000	1.22.2.1
@@ -209,8 +209,8 @@
 
   # Display just up to two extra two levels of heritage to keep the
   # class in quesiton in focus.
-  set heritage [DO $object info heritage]
-  set subclasses [DO $object info subclass]
+  set heritage [[DO xo::getObjectProperty $object heritage]
+  set subclasses [DO xo::getObjectProperty $object subclass]
   
   if {[llength $heritage] > $above} {
     # In case we have nothing to show from the subclasses,