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.66.2.11 -r1.66.2.12
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	12 Aug 2020 13:31:19 -0000	1.66.2.11
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	28 Oct 2020 15:39:19 -0000	1.66.2.12
@@ -530,7 +530,7 @@
 
     if { $callback ne "" && $impl ne "" } {
 
-        if { [info commands "::callback::${callback}::contract__arg_parser"] eq "" } {
+        if { [namespace which ::callback::${callback}::contract__arg_parser] eq "" } {
             # We create a dummy arg parser for the contract in case
             # the contract hasn't been defined yet.  We need this
             # because the implementation doesn't tell us what the
@@ -943,7 +943,7 @@
     # arg validation -- ::callback::${callback}::contract is an
     # empty function that only runs the ad_proc generated arg parser.
 
-    if {[info commands ::callback::${callback}::contract] eq ""} {
+    if {[namespace which ::callback::${callback}::contract] eq ""} {
         error "Undefined callback $callback"
     }
     ::callback::${callback}::contract {*}$args