Index: openacs-4/packages/bug-tracker/tcl/bug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.tcl,v
diff -u -N -r1.38 -r1.39
--- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	28 Mar 2018 17:00:40 -0000	1.38
+++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl	8 Apr 2018 05:29:43 -0000	1.39
@@ -922,7 +922,7 @@
     set bulk_actions {}
     if { !$no_bulk_actions_p } {
         foreach action_id [workflow::get_actions -workflow_id $workflow_id] {
-            if {[lsearch $enabled_actions_for_this_state $action_id] != -1} {
+            if {$action_id in $enabled_actions_for_this_state} {
                 # this particular action is enabled
                 # add to bulk actions
                 workflow::action::get -action_id $action_id -array bulk_action_array_info
Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v
diff -u -N -r1.53 -r1.54
--- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	29 Mar 2018 15:03:01 -0000	1.53
+++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl	8 Apr 2018 05:29:43 -0000	1.54
@@ -1188,7 +1188,7 @@
     set bug_list [get_mapped_bugs -patch_number $patch_number]
     set bug_link_list [list]
 
-    if { [llength $bug_list] == "0"} {
+    if { [llength $bug_list] == 0} {
         return ""
     } else {
         
Index: openacs-4/packages/bug-tracker/www/bulk-update-op.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bulk-update-op.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/bug-tracker/www/bulk-update-op.tcl	29 May 2016 10:50:02 -0000	1.4
+++ openacs-4/packages/bug-tracker/www/bulk-update-op.tcl	8 Apr 2018 05:29:43 -0000	1.5
@@ -79,7 +79,7 @@
                 
         # check cached list first
         set action_id_list [workflow::case::get_enabled_actions -case_id $case_id]
-        if {[lsearch $action_id_list $action_id] != -1} {
+        if {$action_id in $action_id_list} {
             set enabled_action_id [workflow::case::action::get_enabled_action_id \
                                        -case_id $case_id \
                                        -action_id $action_id \
@@ -162,7 +162,7 @@
                              -workflow_short_name [bug_tracker::bug::workflow_short_name]]
             
             set action_id_list [workflow::case::get_enabled_actions -case_id $case_id]
-            if {[lsearch $action_id_list $action_id] != -1} {
+            if {$action_id in $action_id_list} {
                 set enabled_action_id [workflow::case::action::get_enabled_action_id \
                                            -case_id $case_id \
                                            -action_id $action_id \
@@ -209,7 +209,7 @@
     }
     
     foreach field $all_fields {
-        if {[lsearch $present_fields $field] == -1 || $dummy_case_id eq ""} {
+        if {$field ni $present_fields || $dummy_case_id eq ""} {
             element set_properties bug $field -widget hidden
         }
     }