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.37 -r1.38
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	10 Jan 2007 21:22:03 -0000	1.37
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	13 Feb 2009 20:12:26 -0000	1.38
@@ -44,6 +44,14 @@
     error "$path is not under the path root ([acs_root_dir])"
 }
 
+proc ad_get_tcl_call_stack { { level -2 }} {
+    set stack ""
+    for { set x [expr {[info level] + $level}] } { $x > 0 } { incr x -1 } {
+	append stack "    called from [info level $x]\n"
+    }
+    return $stack
+}
+
 proc ad_parse_documentation_string { doc_string elements_var } {
     upvar $elements_var elements
     if { [info exists elements] } {
@@ -421,7 +429,7 @@
 
     set log_code ""
     if { $warn_p } {
-        set log_code "ns_log Debug \"Deprecated proc $proc_name used\"\n"
+        set log_code "ns_log Debug \"Deprecated proc $proc_name used:\\n\[ad_get_tcl_call_stack\]\"\n"
     }
 
     if { $callback ne "" && $impl ne "" } {
Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.114 -r1.115
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	12 Feb 2009 15:38:41 -0000	1.114
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	13 Feb 2009 20:12:26 -0000	1.115
@@ -2455,7 +2455,7 @@
     @author Lars Pind (lars@pinds.com)
 
     @see ad_print_stack_trace
- } {
+} {
     set stack ""
     for { set x [expr {[info level] + $level}] } { $x > 0 } { incr x -1 } {
 	append stack "    called from [info level $x]\n"