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.12 -r1.54.2.13
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	30 Mar 2021 15:48:21 -0000	1.54.2.12
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	4 Oct 2021 10:15:42 -0000	1.54.2.13
@@ -426,7 +426,13 @@
     @param language  Name of a country, using ISO-3166 two letter code
     @return          The nls_language name of the language.
 } {
-    return [db_string nls_language_from_language {}]
+    return [db_string nls_language_from_language {
+        select nls_language
+        from   ad_locales
+        where  lower(trim(language)) = lower(:language)
+          and  enabled_p = 't'
+        fetch first 1 rows only
+    }]
 }