Index: openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl	29 Mar 2002 19:14:47 -0000	1.4
+++ openacs-4/packages/dotlrn/www/admin/users-add-to-community.tcl	8 Apr 2002 13:26:16 -0000	1.5
@@ -46,8 +46,11 @@
         -value $referer
 
 set communities [db_list_of_lists select_all_communities {
-    select pretty_name, community_id
+    select dotlrn_communities.pretty_name,
+           dotlrn_communities.community_id
     from dotlrn_communities
+    order by dotlrn_communities.pretty_name,
+             dotlrn_communities.community_id
 }]
 
 if {[llength $communities]} {