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 -r1.3 -r1.4
--- openacs-4/packages/xotcl-core/www/index.tcl	26 Jul 2006 21:35:57 -0000	1.3
+++ openacs-4/packages/xotcl-core/www/index.tcl	7 Jan 2007 21:35:38 -0000	1.4
@@ -70,7 +70,7 @@
 
   foreach key {procs instprocs} {
     set infos ""
-    foreach i [$cl info $key] {append infos [doc_link $cl $key $i] ", "}
+    foreach i [lsort [$cl info $key]] {append infos [doc_link $cl $key $i] ", "}
     set infos [string trimright $infos ", "]
     if {$infos ne ""} {
       append output "<li><em>$key:</em> $infos</li>\n"
@@ -79,7 +79,7 @@
   }
 
   set infos ""
-  foreach o [$cl info instances] {append infos [::xotcl::api object_link {} $o] ", "}
+  foreach o [lsort [$cl info instances]] {append infos [::xotcl::api object_link {} $o] ", "}
   set infos [string trimright $infos ", "]
   if {$infos ne ""} {
     append output "<li><em>instances:</em> $infos</li>\n"