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.66.2.10 -r1.66.2.11 --- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 24 Jul 2020 11:50:30 -0000 1.66.2.10 +++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 12 Aug 2020 13:31:19 -0000 1.66.2.11 @@ -178,6 +178,14 @@ } } + # Callback hooks and callback implementations are treated as + # private: rationale is they never get called by other packages + # directly. + if {$callback ne ""} { + set public_p 0 + set private_p 1 + } + if { $public_p && $private_p } { return -code error "Mutually exclusive switches -public and -private passed to ad_proc" }