Index: openacs-4/packages/workflow/tcl/test/workflow-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/test/workflow-test-procs.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/workflow/tcl/test/workflow-test-procs.tcl	17 Sep 2013 19:10:35 -0000	1.17
+++ openacs-4/packages/workflow/tcl/test/workflow-test-procs.tcl	14 Oct 2013 17:59:52 -0000	1.18
@@ -530,7 +530,7 @@
             workflow::role::get -role_id $role_id -array role
 
             aa_true "checking that role names of workflow can be fetched with workflow::get_roles and workflow::role::get" \
-                  [expr {[lsearch -exact $expect_role_names $role(short_name)] != -1}]
+                  [expr {$role(short_name) in $expect_role_names}]
 
         }
 
@@ -540,7 +540,7 @@
             workflow::action::get -action_id $action_id -array action
 
             aa_true "checking retrieval of action names with workflow::get_actions and workflow::get" \
-                    [expr {[lsearch -exact $expect_action_names $action(short_name)] != -1}]
+                    [expr {$action(short_name) in $expect_action_names}]
 
         }