Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -N -r1.50 -r1.51
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	4 Jul 2018 13:10:14 -0000	1.50
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	19 Jul 2018 11:43:18 -0000	1.51
@@ -101,7 +101,7 @@
         array set parsed_callback_array $spec_array(callbacks)
     
         aa_true "Only one permissible callback should be returned, got array [array get parsed_callback_array]" \
-	    [expr {[array size parsed_callback_array] == 1}]
+	    {[array size parsed_callback_array] == 1}
     
         aa_equals "Checking name of callback of allowed type $allowed_type" \
                 $parsed_callback_array($allowed_type) $callback_array($allowed_type)
@@ -282,11 +282,11 @@
         [site_node::get_children -all -element node_id -node_id $node_id -package_type "apm_service"] \
         $nodes
     
-    aa_true "Found at least one apm_service node" [expr {[llength $nodes] > 0}]
+    aa_true "Found at least one apm_service node" {[llength $nodes] > 0}
 
     # nonexistent package_type
     aa_true "No nodes with package type 'foo'" \
-        [expr {[llength [site_node::get_children -all -element node_id -node_id $node_id -package_type "foo"]] == 0}]
+        {[llength [site_node::get_children -all -element node_id -node_id $node_id -package_type "foo"]] == 0}
 
     
 }