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.6 -r1.41.2.7
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	2 Oct 2013 08:03:14 -0000	1.41.2.6
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	2 Oct 2013 08:56:26 -0000	1.41.2.7
@@ -86,7 +86,7 @@
 }
 
 proc ad_proc_valid_switch_p {str} {
-  return [expr [string equal "-" [string index $str 0]] && ![number_p $str]]
+  return [expr {[string index $str 0] eq "-" && ![number_p $str]}]
 }
 
 proc ad_proc args {