Index: openacs-4/packages/ams/tcl/address-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/address-widget-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/ams/tcl/address-widget-procs.tcl	9 Jun 2005 20:20:39 -0000	1.7
+++ openacs-4/packages/ams/tcl/address-widget-procs.tcl	19 Jun 2005 05:04:06 -0000	1.8
@@ -116,15 +116,16 @@
             lappend return_country_list [list [lang::message::lookup $locale "ref-countries.${country}"] $country]
         }
     }
+    set return_country_list [ams::util::sort_list_of_lists -list $return_country_list]
     set country_code [list]
     if { [exists_and_not_null reserved_country_codes] } {
         foreach country $reserved_country_codes {
             set country [string toupper $country]
             lappend country_code [list [lang::message::lookup $locale "ref-countries.${country}"] $country]
         }
-        set country_code [concat $country_code [list "--" ""] [lsort $return_country_list]]
+        set country_code [concat $country_code [list "--" ""] $return_country_list]
     } else {
-        set country_code [lsort $return_country_list]
+        set country_code $return_country_list
     }
     return $country_code
 }