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.42.2.3 -r1.42.2.4
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	10 Sep 2015 08:21:16 -0000	1.42.2.3
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	30 Dec 2015 13:01:09 -0000	1.42.2.4
@@ -152,6 +152,11 @@
     if { !$public_p && !$private_p } {
         set public_p 1
     }
+    if {$public_p} {
+        set protection public
+    } else {
+        set protection private
+    }
 
     if { $warn_p && !$deprecated_p } {
         return -code error "Switch -warn can be provided to ad_proc only if -deprecated is also provided"
@@ -402,7 +407,8 @@
         }
     }
 
-    foreach element { public_p private_p deprecated_p warn_p varargs_p arg_list switches positionals } {
+    set protection 
+    foreach element { protection deprecated_p warn_p varargs_p arg_list switches positionals } {
         set doc_elements($element) [set $element]
     }
     foreach element { default_values flags } {