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.10 -r1.11
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	27 Jan 2003 06:02:31 -0000	1.10
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	29 Jan 2003 15:17:00 -0000	1.11
@@ -366,8 +366,13 @@
             ns_write "PARSER CODE:\n\n$parser_code\n\n"
         }
 
+        set log_code ""
+        if { $warn_p } {
+            set log_code "ns_log Debug \"Deprecated proc $proc_name used\"\n"
+        }
+
         uplevel [::list proc ${proc_name_as_passed}__arg_parser {} $parser_code]
-        uplevel [::list proc $proc_name_as_passed args "    ${proc_name_as_passed}__arg_parser\n$code_block"]
+        uplevel [::list proc $proc_name_as_passed args "    ${proc_name_as_passed}__arg_parser\n${log_code}$code_block"]
     }
 }