Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.68.2.6 -r1.68.2.7
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	6 Jun 2020 12:44:55 -0000	1.68.2.6
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	6 Jun 2020 16:27:35 -0000	1.68.2.7
@@ -872,9 +872,10 @@
     #
     # Trying locale directly
     #
-    if { [message_exists_p -varname message $locale $key] } {
-    } else {
-        # Trying default locale for language
+    if { ![message_exists_p -varname message $locale $key] } {
+        #
+        # Trying default locale for language.
+        #
         set language [lindex [split $locale "_"] 0]
         set locale [lang::util::default_locale_from_lang $language]
         if { ![message_exists_p -varname message $locale $key] } {