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.5 -r1.6
--- openacs-4/packages/xotcl-core/www/show-object.tcl	18 Dec 2006 10:11:46 -0000	1.5
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	3 Aug 2007 07:39:30 -0000	1.6
@@ -77,7 +77,11 @@
 
 proc info_option {scope object kind {dosort 0}} {
   upvar class_references class_references
-  set list [DO $object info $kind]
+  if {$dosort} {
+    set list [lsort [DO $object info $kind]]
+  } else {
+    set list [DO $object info $kind]
+  }
   set refs [list]
   foreach e $list {
     if {[DO $object isclass $e]} {
@@ -132,9 +136,9 @@
 if {$isclass} {
   append obj_create_source \
       [info_option $scope $object superclass] \
-      [info_option $scope $object parameter] \
+      [info_option $scope $object parameter 1] \
       [info_option $scope $object instmixin] 
-  info_option $scope $object subclass
+  info_option $scope $object subclass 1
 }
 
 append obj_create_source \