Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -N -r1.84 -r1.85
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	29 Jul 2007 21:33:25 -0000	1.84
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	3 Aug 2007 07:39:30 -0000	1.85
@@ -481,11 +481,6 @@
        and    i.item_id = n.item_id \
        and    o.object_id = $revision_id"
     } else {
-my log  "select [join $atts ,], i.parent_id \
-       from   [my set table_name]i n, cr_items i, acs_objects o \
-       where  i.item_id = $item_id \
-       and    n.[my id_column] = coalesce(i.live_revision, i.latest_revision) \
-       and    o.object_id = i.item_id"
       $object db_1row [my qn fetch_from_view_item_id] "\
        select [join $atts ,], i.parent_id \
        from   [my set table_name]i n, cr_items i, acs_objects o \
Index: openacs-4/packages/xotcl-core/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/index.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/xotcl-core/www/index.tcl	9 Mar 2007 11:02:56 -0000	1.5
+++ openacs-4/packages/xotcl-core/www/index.tcl	3 Aug 2007 07:39:30 -0000	1.6
@@ -43,10 +43,14 @@
   }
 }
 
-proc info_classes {cl key} {
+proc info_classes {cl key {dosort 0}} {
   upvar all_classes all_classes
   set infos ""
-  foreach s [$cl info $key] {
+  set classes [$cl info $key]
+  if {$dosort} {
+    set classes [lsort $classes]
+  }
+  foreach s $classes {
     append infos [local_link $s] ", "
   }
   set infos [string trimright $infos ", "]
@@ -64,9 +68,10 @@
   
   append output "<li><b><a name='$cl'>[::xotcl::api object_link {} $cl]</b> <ul>"
 
-  foreach kind {class superclass subclass mixin instmixin} {
-    append output [info_classes $cl $kind]
-  }
+  append output [info_classes $cl superclass]
+  append output [info_classes $cl subclass 1]
+  append output [info_classes $cl mixin]
+  append output [info_classes $cl instmixin]
 
   foreach key {procs instprocs} {
     set infos ""
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.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 \