Index: openacs-4/www/default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/default-master.tcl,v
diff -u -N -r1.19.10.1 -r1.19.10.2
--- openacs-4/www/default-master.tcl	2 Mar 2007 16:12:35 -0000	1.19.10.1
+++ openacs-4/www/default-master.tcl	4 Mar 2007 16:47:04 -0000	1.19.10.2
@@ -122,19 +122,16 @@
     -base ${acs_lang_url}admin/translator-mode-toggle \
     {{return_url [ad_return_url]}}]
 
+set package_id [ad_conn package_id]
 if { $num_of_locales > 1 } {
-    set change_locale_url [export_vars \
-        -base $acs_lang_url \
-        {{package_id [ad_conn package_id]}}]
+    set change_locale_url [export_vars -base $acs_lang_url {package_id}]
 }
 
 #
 # Change locale link
 #
 if {[llength [lang::system::get_locales]] > 1} {
-    set change_locale_url [export_vars \
-        -base "/acs-lang/" \
-        [list [list package_id [ad_conn package_id]]]]
+    set change_locale_url [export_vars -base "/acs-lang/" {package_id}]
 }
 
 #