Index: openacs-4/packages/acs-lang/tcl/localization-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/localization-procs.tcl,v
diff -u -N -r1.23 -r1.23.8.1
--- openacs-4/packages/acs-lang/tcl/localization-procs.tcl	18 Apr 2008 06:48:42 -0000	1.23
+++ openacs-4/packages/acs-lang/tcl/localization-procs.tcl	27 Aug 2013 12:20:35 -0000	1.23.8.1
@@ -415,7 +415,7 @@
         return ""
     }
 
-    if { ![exists_and_not_null locale] } {
+    if { (![info exists locale] || $locale eq "") } {
         set locale [ad_conn locale]
     }