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 -N -r1.31 -r1.31.2.1
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	27 Feb 2005 22:45:39 -0000	1.31
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	12 Oct 2005 22:26:42 -0000	1.31.2.1
@@ -348,14 +348,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