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.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/test/whos-online-procs.tcl	10 Feb 2009 20:42:43 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/test/whos-online-procs.tcl	27 Oct 2014 16:40:10 -0000	1.6
@@ -49,8 +49,8 @@
         #Test all-invisible_user_ids
         #---------------------------------------------------------------------------------------------------
 
-        aa_true "User $user_info(email) with user_id=$user_id is in the invisible list"\
-	    [expr [lsearch [whos_online::all_invisible_user_ids] $user_id] >= 0]
+        aa_true "User $user_info(email) with user_id=$user_id is in the invisible list" \
+	    [expr {$user_id in [whos_online::all_invisible_user_ids]}]
 	
         #---------------------------------------------------------------------------------------------------
 	#Test unset_invisible
@@ -67,8 +67,8 @@
         #Test user_ids
         #---------------------------------------------------------------------------------------------------
 	
-	aa_true "User $user_info(email) with user_id=$user_id is in the visible list"\
-	    [expr [lsearch [whos_online::user_ids] $user_id] >= 0]
+	aa_true "User $user_info(email) with user_id=$user_id is in the visible list" \
+	    [expr {$user_id in [whos_online::user_ids]}]
 
 	twt::user::logout
 	twt::user::delete -user_id $user_id