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 -N -r1.1 -r1.2
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	12 Apr 2001 16:58:18 -0000	1.1
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	16 Apr 2001 04:46:21 -0000	1.2
@@ -30,6 +30,14 @@
     error "$path is not under the path root ([acs_root_dir])"
 }
 
+# A "safe" way to source a Tcl file. This is mainly so we can trace sourcing in the call stack,
+# which is fairly important in the QD, and generally a better idea for figuring out what the
+# heck is going on. (ben)
+proc acs_source { path } {
+    # That's right, that's all we're doing. Wrapping source so we can do call stack traces.
+    source $path
+}
+
 proc ad_parse_documentation_string { doc_string elements_var } {
     upvar $elements_var elements
     if { [info exists elements] } {