Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.54.2.13 -r1.54.2.14
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	4 Oct 2021 10:15:42 -0000	1.54.2.13
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	15 Feb 2022 16:50:29 -0000	1.54.2.14
@@ -388,10 +388,11 @@
         select locale
         from ad_locales l
         where language = :language
-          and enabled_p
-          and (default_p or not exists (select 1 from ad_locales
-                                         where language = :language
-                                           and locale <> l.locale))
+          and enabled_p = 't'
+          and (default_p = 't' or not exists
+             (select 1 from ad_locales
+              where language = :language
+              and locale <> l.locale))
     }]
     if {[llength $locales] > 1} {
         ad_log error "multiple locales '$locales' defined for language '$language'. Define default locale longuage in /acs-lang/admin"