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]