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.17 -r1.18
--- openacs-4/packages/xotcl-core/www/show-object.tcl	1 May 2015 16:33:43 -0000	1.17
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	3 May 2015 08:03:41 -0000	1.18
@@ -186,6 +186,8 @@
 set index [::xotcl::api object_index $scope $object]
 append output "<blockquote>\n"
 
+set class_hierarchy [list]
+
 if {$isclass} {
   set hierarchy 0
   if {$hierarchy} {
@@ -200,7 +202,6 @@
 
   #
   # compute list of classes with siblings
-  set class_hierarchy [list]
   foreach c [DO xo::getObjectProperty $object superclass] {
     if {$c eq "::xotcl::Object"} {continue}
     lappend class_hierarchy {*}[DO xo::getObjectProperty $c subclass]
@@ -230,9 +231,8 @@
     }
     lappend class_hierarchy {*}$subclasses
   }
-  
-  set documented_only [expr {$show_methods < 2}]
 }
+set documented_only [expr {$show_methods < 2}]
 
 if {[nsv_exists api_library_doc $index]} {
   array set doc_elements [nsv_get api_library_doc $index]