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.11 -r1.22.2.12
--- openacs-4/packages/xotcl-core/www/show-object.tcl	6 Jan 2016 22:19:16 -0000	1.22.2.11
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	6 Jan 2016 22:36:41 -0000	1.22.2.12
@@ -98,7 +98,7 @@
   return $result
 }
 
-proc info_option {scope object kind {dosort 0}} {
+proc class_relation {scope object kind {dosort 0}} {
   upvar class_references class_references
 
   set isnx [DO xo::getObjectProperty $object isnxobject]
@@ -276,16 +276,18 @@
 set obj_create_source "$my_class create $object"
 
 set class_references ""
+class_relation $scope $object class
 
 if {$isclass} {
   append obj_create_source \
-      [info_option $scope $object class] \
-      [info_option $scope $object superclass] \
-      [info_option $scope $object instmixin] 
+      [class_relation $scope $object superclass] \
+      [class_relation $scope $object instmixin]
+
+  class_relation $scope $object subclass
 }
 
 append obj_create_source \
-    [info_option $scope $object mixin]
+    [class_relation $scope $object mixin]
 
 if {$class_references ne ""} {
   append output "<h4>Class Relations</h4><ul>\n$class_references</ul>\n"