Index: openacs-4/packages/acs-bootstrap-installer/acs-bootstrap-installer.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/acs-bootstrap-installer.info,v
diff -u -r1.39.2.10 -r1.39.2.11
--- openacs-4/packages/acs-bootstrap-installer/acs-bootstrap-installer.info	1 Dec 2015 13:56:09 -0000	1.39.2.10
+++ openacs-4/packages/acs-bootstrap-installer/acs-bootstrap-installer.info	30 Dec 2015 13:01:09 -0000	1.39.2.11
@@ -9,7 +9,7 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
     
-   <version name="5.9.0" url="http://openacs.org/repository/download/apm/acs-bootstrap-installer-5.9.0.apm">
+   <version name="5.9.1d1" url="http://openacs.org/repository/download/apm/acs-bootstrap-installer-5.9.1d1.apm">
         <owner url="mailto:dhogaza@pacifier.com">Don Baccus</owner>
         <summary>Bootstraps an OpenACS installation.</summary>
         <release-date>2015-10-04</release-date>
@@ -18,7 +18,7 @@
         <license>GPL</license>
         <maturity>3</maturity>
 
-        <provides url="acs-bootstrap-installer" version="5.9.0"/>
+        <provides url="acs-bootstrap-installer" version="5.9.1d1"/>
         <requires url="acs-kernel" version="5.9.0"/>
         <requires url="acs-templating" version="5.9.0"/>
 
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 } {