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.1 -r1.22.2.2
--- openacs-4/packages/xotcl-core/www/show-object.tcl	10 Oct 2015 15:40:55 -0000	1.22.2.1
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	10 Oct 2015 15:43:10 -0000	1.22.2.2
@@ -209,7 +209,7 @@
 
   # Display just up to two extra two levels of heritage to keep the
   # class in quesiton in focus.
-  set heritage [[DO xo::getObjectProperty $object heritage]
+  set heritage [DO xo::getObjectProperty $object heritage]
   set subclasses [DO xo::getObjectProperty $object subclass]
   
   if {[llength $heritage] > $above} {