Index: openacs-4/packages/acs-tcl/tcl/test/whos-online-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/whos-online-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/test/whos-online-procs.tcl	11 Aug 2006 23:18:13 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/test/whos-online-procs.tcl	10 Jan 2007 21:22:12 -0000	1.4
@@ -43,7 +43,7 @@
 	
 	whos_online::set_invisible $user_id
 	
-	aa_true "User $user_info(email) is Invisible" [expr [nsv_exists invisible_users $user_id] == 1 ]
+	aa_true "User $user_info(email) is Invisible" [expr {[nsv_exists invisible_users $user_id] == 1 }]
 	
         #---------------------------------------------------------------------------------------------------
         #Test all-invisible_user_ids
@@ -61,7 +61,7 @@
 	whos_online::unset_invisible $user_id
 	
 	aa_false "User $user_info(email) is Visible" \
-	    [expr [whos_online::user_invisible_p $user_id ] == 1 ]
+	    [expr {[whos_online::user_invisible_p $user_id ] == 1 }]
 	
         #---------------------------------------------------------------------------------------------------
         #Test user_ids