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.2 -r1.54.2.3
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	14 Mar 2019 10:23:06 -0000	1.54.2.2
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	1 Jul 2019 16:55:43 -0000	1.54.2.3
@@ -865,12 +865,12 @@
 
     set iso6392_code ""
     set lang_len [string length $language]
-    if { $lang_len eq 2 } {
+    if { $lang_len == 2 } {
         # input is iso-639-1 language code
 
         set iso6392_code [db_string get_iso2_code_from_iso1 {} -default ""]
 
-    } elseif { $lang_len eq 3 } {
+    } elseif { $lang_len == 3 } {
         # input is iso-639-2 language code
         # we check in the table in case the language code is wrong
 
@@ -909,12 +909,12 @@
 
     set lang_label ""
     set lang_len [string length $language]
-    if { $lang_len eq 2 } {
+    if { $lang_len == 2 } {
         # input is iso-639-1 language code
 
         set lang_label [db_string get_label_from_iso1 {} -default ""]
 
-    } elseif { $lang_len eq 3 } {
+    } elseif { $lang_len == 3 } {
         # input is iso-639-2 language code
         # we check in the table in case the language code is wrong