Index: openacs-4/packages/contacts/lib/list-parties-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/list-parties-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/contacts/lib/list-parties-add.tcl	26 Jun 2006 06:36:51 -0000	1.1
+++ openacs-4/packages/contacts/lib/list-parties-add.tcl	29 Jun 2006 10:54:51 -0000	1.2
@@ -59,7 +59,7 @@
     {recipients:text(inform),optional {label "[_ contacts.Contacts]"}}
 }
 
-set list_options [db_list_of_lists get_lists { select ao.title, cl.list_id from contact_lists cl, acs_objects ao where cl.list_id = ao.object_id and cl.list_id in ( select object_id from contact_owners where owner_id in ( :user_id, :package_id )) }]
+set list_options [db_list_of_lists get_lists { select ao.title, cl.list_id from contact_lists cl, acs_objects ao where cl.list_id = ao.object_id and cl.list_id in ( select object_id from contact_owners where owner_id in ( :user_id, :package_id )) order by upper(ao.title) }]
 
 if { [llength $list_options] == "0" } {
     ad_return_error "[_ contacts.No_Lists]" "[_ contacts.You_do_not_own_any_lists]"