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.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} {