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.9 -r1.10
--- openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	5 May 2001 17:55:00 -0000	1.9
+++ openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	8 May 2001 21:07:57 -0000	1.10
@@ -159,7 +159,12 @@
     }
 
     # Get the proc name being executed.
-    set proc_name [info level [expr "-1 - $added_stack_num"]]
+    # 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] } {
+	return $local_name
+    }
 
     # If util_memoize, we have to go back up one in the stack
     if {[lindex $proc_name 0] == "util_memoize"} {