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.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" }