Index: openacs-4/packages/acs-lang/acs-lang.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/acs-lang.info,v diff -u -N -r1.64.2.9 -r1.64.2.10 --- openacs-4/packages/acs-lang/acs-lang.info 18 May 2020 21:13:20 -0000 1.64.2.9 +++ openacs-4/packages/acs-lang/acs-lang.info 6 Jun 2020 16:27:35 -0000 1.64.2.10 @@ -9,7 +9,7 @@ f t - + Peter Marklund OpenACS Internationalization Support. 2017-08-06 @@ -20,7 +20,7 @@ GPL 3 - + 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 -N -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] } {