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.12 -r1.13
--- openacs-4/packages/xotcl-core/www/show-object.tcl	20 Mar 2008 13:49:02 -0000	1.12
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	25 Mar 2008 13:17:57 -0000	1.13
@@ -183,8 +183,13 @@
   #
   # compute list of classes with siblings
   set class_hierarchy [list]
-  foreach c [$object info superclass] {eval lappend class_hierarchy [$c info subclass]}
-  eval lappend class_hierarchy  [$object info heritage]
+  foreach c [$object info superclass] {
+    if {$c eq "::xotcl::Object"} {continue}
+    eval lappend class_hierarchy [$c info subclass]
+  }
+  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
   set class_hierarchy [ns_urlencode $class_hierarchy]
   #set class_hierarchy [ns_urlencode [concat $object [$object info heritage]]]
 }