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.41 -r1.41.2.1
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	12 Apr 2013 16:12:56 -0000	1.41
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	16 Aug 2013 19:07:36 -0000	1.41.2.1
@@ -154,6 +154,10 @@
         return -code error "Switch -warn can be provided to ad_proc only if -deprecated is also provided"
     }
 
+    if { $deprecated_p } {
+	set warn_p 1
+    }
+
     if { $impl ne "" && $callback eq "" } {
         return -code error "A callback contract name must be specified with -callback when defining an implementation with -impl"
     }