Index: openacs-4/packages/acs-subsite/lib/user-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v
diff -u -r1.27.2.3 -r1.27.2.4
--- openacs-4/packages/acs-subsite/lib/user-info.tcl	2 Jan 2020 13:24:28 -0000	1.27.2.3
+++ openacs-4/packages/acs-subsite/lib/user-info.tcl	6 Jun 2020 16:28:29 -0000	1.27.2.4
@@ -128,8 +128,8 @@
 
 set locale_options [list]
 db_foreach get_locales {} {
-    if { [lang::message::message_exists_p $locale acs-lang.this-language] } {
-        set label "[lang::message::lookup $locale  acs-lang.this-language]"
+    if { [lang::message::message_exists_p -varname label $locale acs-lang.this-language] } {
+        #set label "[lang::message::lookup $locale acs-lang.this-language]"
     }
     lappend locale_options [list ${label} $locale]
 }