Index: openacs-4/packages/acs-admin/www/apm/build-repository.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/Attic/build-repository.tcl,v
diff -u -N -r1.21 -r1.22
--- openacs-4/packages/acs-admin/www/apm/build-repository.tcl	25 Apr 2018 19:23:25 -0000	1.21
+++ openacs-4/packages/acs-admin/www/apm/build-repository.tcl	8 May 2018 20:46:28 -0000	1.22
@@ -54,7 +54,7 @@
 
 set lines [split $output \n]
 for { set i 0 } { $i < [llength $lines] } { incr i } {
-    if { [string equal [string trim [lindex $lines $i]] "symbolic names:"] } {
+    if { [string trim [lindex $lines $i]] eq "symbolic names:" } {
         incr i
         break
     }
Index: openacs-4/packages/acs-templating/tcl/test/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/date-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-templating/tcl/test/date-procs.tcl	7 Aug 2017 23:48:02 -0000	1.3
+++ openacs-4/packages/acs-templating/tcl/test/date-procs.tcl	8 May 2018 20:46:28 -0000	1.4
@@ -1,9 +1,9 @@
-# 
+#
 
 ad_library {
-    
+
     Test date procs
-    
+
     @author Dave Bauer (dave@thedesignexperience.org)
     @creation-date 2005-10-13
     @arch-tag: b5d458b6-bd22-4b87-8c4e-6a8c23fcca9e
@@ -18,7 +18,7 @@
         -test_code {
             set date [template::util::date::now]
             set sql_date [template::util::date::get_property sql_date $date]
-            if {[string equal [db_type] "oracle"] && [string match "8.*" [db_version]]} {
+            if { [db_type] eq "oracle" && [string match "8.*" [db_version]] } {
                 aa_true "to_date for Oracle 8i" [string match "to_date*"]
             } else {
                 aa_true "to_timestamp for Oracle 9i and PostgreSQL" [string match "to_timestamp*" $sql_date]