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.27 -r1.27.2.1
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	5 Feb 2004 12:09:05 -0000	1.27
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	31 May 2004 18:51:27 -0000	1.27.2.1
@@ -803,6 +803,6 @@
     return [db_string select_locale_label {
         select label 
           from ad_locales
-         where locale = :locale
+         where lower(locale) = lower(:locale)
     }]
 }