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.14 -r1.15
--- openacs-4/packages/xotcl-core/www/show-object.tcl	26 Mar 2008 10:57:16 -0000	1.14
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	2 Feb 2011 16:26:45 -0000	1.15
@@ -187,6 +187,7 @@
     if {$c eq "::xotcl::Object"} {continue}
     eval lappend class_hierarchy [$c info subclass]
   }
+  if {[llength $class_hierarchy]>5} {set class_hierarchy {}}
   eval lappend class_hierarchy [$object info heritage]
   if {[lsearch -exact $class_hierarchy $object] == -1} {lappend class_hierarchy $object}
   #::xotcl::Object msg class_hierarchy=$class_hierarchy