Index: openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	14 Dec 2003 16:08:46 -0000	1.31
+++ openacs-4/packages/acs-bootstrap-installer/tcl/30-apm-load-procs.tcl	26 Jan 2004 15:39:42 -0000	1.32
@@ -26,7 +26,7 @@
     return [info exists apm_first_time_loading_p]
 }
 
-ad_proc ad_after_server_initialization { name args } {
+ad_proc -public ad_after_server_initialization { name args } {
 
     Registers code to run after server initialization is complete.
 
@@ -37,7 +37,7 @@
     nsv_lappend ad_after_server_initialization . [list name $name script [info script] args $args]
 }
 
-ad_proc apm_guess_file_type { package_key path } {
+ad_proc -public apm_guess_file_type { package_key path } {
 
     Guesses and returns the file type key corresponding to a particular path
     (or an empty string if none is known). <code>$path</code> should be
@@ -370,7 +370,7 @@
     return [expr ![file exists "${package_path}/sql"] || [file exists "${package_path}/sql/[db_type]"]]
 }
 
-ad_proc apm_source { __file } {
+ad_proc -private apm_source { __file } {
     Sources $__file in a clean environment, returning 1 if successful or 0 if not.
     Records that the file has been sourced and stores its mtime in the nsv array
     apm_library_mtime
@@ -394,15 +394,15 @@
 
 # Special boot strap load file routine.  
 
-ad_proc apm_bootstrap_load_file { root_directory file } {
+ad_proc -private apm_bootstrap_load_file { root_directory file } {
     Source a single file during initial bootstrapping and set APM data.
 } {
     ns_log "Notice" "Loading [file tail $root_directory]/$file"
 
     apm_source "${root_directory}/${file}"
 }
 
-ad_proc apm_bootstrap_load_libraries {
+ad_proc -private apm_bootstrap_load_libraries {
     {-load_tests:boolean 0}
     {-init:boolean}
     {-procs:boolean}