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 -N -r1.20 -r1.21
--- openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	11 Aug 2001 21:31:03 -0000	1.20
+++ openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	17 Sep 2001 01:02:09 -0000	1.21
@@ -162,7 +162,7 @@
     # We catch this in case we're being called from the top level
     # (eg. from bootstrap.tcl), in which case we return what we
     # were given
-    if { [catch {info level [expr "-1 - $added_stack_num"]} proc_name] } {
+    if { [catch {string trimleft [info level [expr "-1 - $added_stack_num"]] ::} proc_name] } {
 	return $local_name
     }