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.35 -r1.36
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	13 Jul 2006 17:42:57 -0000	1.35
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	13 Jul 2006 18:03:10 -0000	1.36
@@ -82,7 +82,7 @@
 }
 
 proc ad_proc args {
-    set public_p 1
+    set public_p 0
     set private_p 0
     set deprecated_p 0
     set warn_p 0
@@ -138,6 +138,10 @@
         return -code error "Mutually exclusive switches -public and -private passed to ad_proc"
     }
 
+    if { !$public_p && !$private_p } {
+        set public_p 1
+    }
+
     if { $warn_p && !$deprecated_p } {
         return -code error "Switch -warn can be provided to ad_proc only if -deprecated is also provided"
     }