Index: openacs-4/packages/acs-lang/tcl/locale-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/locale-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	23 Jul 2005 16:55:05 -0000	1.32
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	4 Oct 2005 02:37:26 -0000	1.33
@@ -353,14 +353,17 @@
 
 ad_proc -public lang::user::set_locale {
     {-package_id ""}
+    {-user_id ""}
     locale
 } {
     Set user locale setting for a given package instance.
     
     @param package_id The package for which you want to set the locale setting, if you want to set it for a specific package, as opposed to a site-wide setting.
     @param locale The new locale that you want to use as your system locale.
 } {
-    set user_id [ad_conn user_id]
+    if { [empty_string_p $user_id] } {
+	set user_id [ad_conn user_id]
+    }
 
     if { $user_id == 0 } {
         # Not logged in, use a cookie-based client locale