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.8 -r1.41.2.9
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	5 Oct 2013 12:57:16 -0000	1.41.2.8
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	13 Oct 2013 10:22:22 -0000	1.41.2.9
@@ -305,7 +305,7 @@
     set effective_arg_list $arg_list
 
     set last_arg [lindex $effective_arg_list end]
-    if { [llength $last_arg] == 1 && [string equal [lindex $last_arg 0] "args"] } {
+    if { [llength $last_arg] == 1 && [lindex $last_arg 0] eq "args" } {
         set varargs_p 1
         set effective_arg_list [lrange $effective_arg_list 0 [llength $effective_arg_list]-2]
     }
@@ -827,7 +827,7 @@
         }
     }
 
-    if {![string equal $impl *] && ![info exists c] && !$catch_p} {
+    if {$impl ne "*" && ![info exists c] && !$catch_p} {
         error "callback $callback implementation $impl does not exist"
     }
 
Index: openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl,v
diff -u -r1.42.2.4 -r1.42.2.5
--- openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	1 Oct 2013 07:43:17 -0000	1.42.2.4
+++ openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	13 Oct 2013 10:22:22 -0000	1.42.2.5
@@ -345,7 +345,7 @@
         # db_qd_log QDDebug "calling namespace = $calling_namespace"
 
         if {$calling_namespace ne "" && 
-            ![string match *::* $proc_name]} {
+            ![string match "*::*" $proc_name]} {
             set proc_name ${calling_namespace}::${proc_name}
         }
 	# db_qd_log QDDebug "proc_name is -$proc_name-"