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.40.6.2 -r1.40.6.3
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	29 Sep 2013 14:55:33 -0000	1.40.6.2
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	2 Oct 2013 22:55:57 -0000	1.40.6.3
@@ -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 [llength [array names parsed_callback_array]] == 1]
+	    [expr {[llength [array names parsed_callback_array]] == 1}]
     
         aa_equals "Checking name of callback of allowed type $allowed_type" \
                 $parsed_callback_array($allowed_type) $callback_array($allowed_type)
@@ -289,7 +289,7 @@
 
     # 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]
+        [expr {[llength [site_node::get_children -all -element node_id -node_id $node_id -package_type "foo"]] == 0}]
 
     
 }