Index: openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl	7 Aug 2017 23:48:00 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/test/text-html-procs.tcl	15 Mar 2018 12:33:05 -0000	1.3
@@ -89,7 +89,7 @@
                             -allowed_protocols *]
             set result [string trim $result]
             set test_result [string trim $test_result]
-            aa_true "$msg trivial?" [expr {$result eq $test_result}]
+            aa_true "$msg trivial?" {$result eq $test_result}
         }
 
     # Try test cases not allowing js
@@ -104,7 +104,7 @@
                             -no_js]
             set result [string trim $result]
             set test_result [string trim $test_result]
-            aa_true "$msg no js?" [expr {$result eq $test_result}]
+            aa_true "$msg no js?" {$result eq $test_result}
         }
 
     # Try test cases not allowing outer urls
@@ -119,7 +119,7 @@
                             -no_outer_urls]
             set result [string trim $result]
             set test_result [string trim $test_result]
-            aa_true "$msg no outer urls?" [expr {$result eq $test_result}]
+            aa_true "$msg no outer urls?" {$result eq $test_result}
         }
 
     # Try test cases fixing markup
@@ -134,7 +134,7 @@
                             -fix]
             set result [string trim $result]
             set test_result [string trim $test_result]
-            aa_true "$msg fixing markup?" [expr {$result eq $test_result}]
+            aa_true "$msg fixing markup?" {$result eq $test_result}
         }
 
     aa_log "trying to get start page from [util::configured_location]/"