Index: openacs-4/packages/acs-lang/www/change-locale-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/change-locale-include.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-lang/www/change-locale-include.tcl	10 Jan 2007 21:22:04 -0000	1.15
+++ openacs-4/packages/acs-lang/www/change-locale-include.tcl	25 Sep 2007 15:22:36 -0000	1.16
@@ -65,7 +65,8 @@
     -widget select_locales \
     -optional \
     -label "[_ acs-lang.Your_Preferred_Locale]" \
-    -options $list_of_locales
+    -options $list_of_locales \
+    -values [ad_conn locale]
 
 if { $package_level_locales_p } {
     set package_name [apm_instance_name_from_id $package_id]