Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -r1.41.2.5 -r1.41.2.6
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	1 Oct 2013 07:40:20 -0000	1.41.2.5
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	2 Oct 2013 08:03:14 -0000	1.41.2.6
@@ -347,7 +347,7 @@
             set arg [string range $arg 1 end]
             lappend switches $arg
 
-            if { [lsearch $arg_flags "boolean"] >= 0 } {
+            if {"boolean" in $arg_flags} {
                 set default_values(${arg}_p) 0
 		append switch_code "            -$arg - -$arg=1 - -$arg=t - -$arg=true {
                 ::uplevel ::set ${arg}_p 1
@@ -365,7 +365,7 @@
 		append switch_code "            }\n"
             }
 
-            if { [lsearch $arg_flags "required"] >= 0 } {
+            if {"required" in $arg_flags} {
                 append check_code "    ::if { !\[::uplevel ::info exists $arg\] } {
         ::return -code error \"Required switch -$arg not provided\"
     }
@@ -948,7 +948,7 @@
 } {
     upvar $arg_name arg_value
 
-    if { [lsearch -exact $allowed_values_list $arg_value] == -1 } {
+    if {$arg_value ni $allowed_values_list} {
         error "argument $arg_name has value $arg_value but must be in ([join $allowed_values_list ", "])"
     }