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 -N -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
 
Index: openacs-4/packages/acs-lang/www/admin/locale-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/locale-edit.tcl,v
diff -u -N -r1.12 -r1.12.2.1
--- openacs-4/packages/acs-lang/www/admin/locale-edit.tcl	24 Mar 2018 00:14:57 -0000	1.12
+++ openacs-4/packages/acs-lang/www/admin/locale-edit.tcl	1 Jul 2019 17:02:45 -0000	1.12.2.1
@@ -124,7 +124,7 @@
 
     set lang_query "select label from language_639_2_codes"
 
-    if { [string length $locale_language] eq 3 } {
+    if { [string length $locale_language] == 3 } {
         append lang_query " where iso_639_2 = :locale_language"
     } else {
         append lang_query " where iso_639_1 = :locale_language"
Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -N -r1.108 -r1.108.2.1
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	21 Jun 2018 15:45:03 -0000	1.108
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	1 Jul 2019 17:02:45 -0000	1.108.2.1
@@ -432,7 +432,7 @@
 
         # associate a user_id
         set rcpt_id 0
-        if { [llength $to_addr] eq 1 } {
+        if { [llength $to_addr] == 1 } {
             set rcpt_id [party::get_by_email -email $to_addr]
             if {$rcpt_id eq ""} {
                 set rcpt_id 0
Index: openacs-4/packages/acs-mail-lite/tcl/imap-inbound-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/imap-inbound-procs.tcl,v
diff -u -N -r1.8 -r1.8.2.1
--- openacs-4/packages/acs-mail-lite/tcl/imap-inbound-procs.tcl	14 Jun 2018 22:16:08 -0000	1.8
+++ openacs-4/packages/acs-mail-lite/tcl/imap-inbound-procs.tcl	1 Jul 2019 17:02:45 -0000	1.8.2.1
@@ -71,7 +71,7 @@
  config.tcl's mailbox '${mb}' not in good form. \
  Quote mailbox with curly braces like: {{mailbox.host}mailbox.name} "
             set mb_list [acs_mail_lite::imap_mailbox_split $mb]
-            if { [llength $mb_list] eq 3 } {
+            if { [llength $mb_list] == 3 } {
                 lassign $mb_list ho na ssl_p
                 ns_log Notice "acs_mail_lite::imap_conn_set.479: \
  Used alternate parsing. host '${ho}' mailbox.name '${na}' ssl_p '${ssl_p}'"