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.11 -r1.12
--- openacs-4/packages/xotcl-core/www/show-object.tcl	20 Mar 2008 10:21:01 -0000	1.11
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	20 Mar 2008 13:49:02 -0000	1.12
@@ -179,7 +179,14 @@
   append output "<h4>Class Hierarchy of $object</h4>"
   #append output [superclass_hierarchy $object]
   append output [draw_as_tree [superclass_hierarchy $object $scope]]
-  set class_hierarchy [ns_urlencode [concat $object [$object info heritage]]]
+  #set class_hierarchy [ns_urlencode [concat $object [$object info heritage]]]
+  #
+  # 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]
+  set class_hierarchy [ns_urlencode $class_hierarchy]
+  #set class_hierarchy [ns_urlencode [concat $object [$object info heritage]]]
 }
 
 if {[nsv_exists api_library_doc $index]} {