Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.79.2.40 -r1.79.2.41
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	17 Feb 2021 08:25:36 -0000	1.79.2.40
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	18 Feb 2021 14:41:14 -0000	1.79.2.41
@@ -569,7 +569,7 @@
     }]
 }
 
-ad_proc -public aa_runseries {
+ad_proc -private aa_runseries {
     {-stress 0}
     {-security_risk 0}
     -quiet:boolean
@@ -692,7 +692,7 @@
     }
 }
 
-ad_proc -public aa_run_testcase {
+ad_proc -private aa_run_testcase {
     testcase_id
 } {
     @author Peter Harper
@@ -978,7 +978,7 @@
     db_dml test_result_insert {}
 }
 
-ad_proc -public aa_log_final {
+ad_proc -private aa_log_final {
     test_passes
     test_fails
 } {
@@ -1425,7 +1425,7 @@
         return $d
     }
 
-    ad_proc -public ::acs::test::set_user {
+    ad_proc -private ::acs::test::set_user {
         {-session ""}
         user_info
     } {
@@ -1512,7 +1512,7 @@
     }
 
 
-    ad_proc -public ::acs::test::login {
+    ad_proc -private ::acs::test::login {
         user_info
     } {
         Login (register operation) in a web session
@@ -2226,7 +2226,7 @@
     }
 }
 
-ad_proc -public aa_selenium_init {} {
+ad_proc -private aa_selenium_init {} {
     Setup a global Selenium RC server connection
 
     @return true is everything is ok, false if there was any error
Index: openacs-4/packages/acs-automated-testing/tcl/example-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/example-procs.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-automated-testing/tcl/example-procs.tcl	7 Aug 2017 23:47:46 -0000	1.4
+++ openacs-4/packages/acs-automated-testing/tcl/example-procs.tcl	18 Feb 2021 14:41:14 -0000	1.4.2.1
@@ -15,7 +15,7 @@
     @cvs-id $Id$
 }
  
-ad_proc -public aa_example_write_audit_entry {
+ad_proc -private aa_example_write_audit_entry {
   name
   value
 } {
Index: openacs-4/packages/acs-admin/tcl/acs-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/acs-admin-procs.tcl,v
diff -u -r1.2.2.3 -r1.2.2.4
--- openacs-4/packages/acs-admin/tcl/acs-admin-procs.tcl	28 Oct 2020 15:39:18 -0000	1.2.2.3
+++ openacs-4/packages/acs-admin/tcl/acs-admin-procs.tcl	18 Feb 2021 14:48:10 -0000	1.2.2.4
@@ -8,7 +8,7 @@
 
 namespace eval acs_admin {
 
-    ad_proc ::acs_admin::check_expired_certificates {} {
+    ad_proc -private ::acs_admin::check_expired_certificates {} {
         Check expire-dates of certificates and send warning emails to
         the admin. In case HTTPS is not configured via the "nsssl"
         driver, or the command line tool "openssl" is not installed,
Index: openacs-4/packages/acs-core-docs/tcl/acs-core-docs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/tcl/acs-core-docs-procs.tcl,v
diff -u -r1.11.2.4 -r1.11.2.5
--- openacs-4/packages/acs-core-docs/tcl/acs-core-docs-procs.tcl	22 Nov 2019 16:45:45 -0000	1.11.2.4
+++ openacs-4/packages/acs-core-docs/tcl/acs-core-docs-procs.tcl	18 Feb 2021 14:48:10 -0000	1.11.2.5
@@ -48,7 +48,7 @@
     return [ad_core_docs_uninstalled_packages]
 }
 
-ad_proc -public ad_core_docs_uninstalled_packages {} {
+ad_proc -private ad_core_docs_uninstalled_packages {} {
     Returns a list (in array set format) of package.key package-name
     (used for display on the index.adp page).
 
Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.108.2.16 -r1.108.2.17
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	9 Feb 2021 15:20:03 -0000	1.108.2.16
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	18 Feb 2021 14:48:10 -0000	1.108.2.17
@@ -78,7 +78,7 @@
 
 
     #---------------------------------------
-    ad_proc -public generate_message_id {
+    ad_proc -private generate_message_id {
     } {
         Generate an id suitable as a Message-Id: header for an email.
         @return valid message-id for mail header
Index: openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl,v
diff -u -r1.15.2.9 -r1.15.2.10
--- openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl	1 Sep 2020 14:28:40 -0000	1.15.2.9
+++ openacs-4/packages/acs-mail-lite/tcl/email-inbound-procs.tcl	18 Feb 2021 14:48:10 -0000	1.15.2.10
@@ -2344,7 +2344,7 @@
     return $context_list
 }
 
-ad_proc acs_mail_lite::bounce_ministry {
+ad_proc -private acs_mail_lite::bounce_ministry {
     -header_array_name:required
 } {
     Check if this email is notifying original email bounced.
@@ -2449,7 +2449,7 @@
     return [parameter::get_from_package_key -package_key "acs-mail-lite" -parameter "EnvelopePrefix"]
 }
 
-ad_proc -public acs_mail_lite::bouncing_user_p {
+ad_proc -private acs_mail_lite::bouncing_user_p {
     -user_id:required
 } {
     Checks if email address of user is bouncing mail
@@ -2530,7 +2530,7 @@
 }
 
 
-ad_proc -public acs_mail_lite::bounce_address {
+ad_proc -private acs_mail_lite::bounce_address {
     -user_id:required
     -package_id:required
     -message_id:required
Index: openacs-4/packages/acs-mail-lite/tcl/legacy-inbound-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/legacy-inbound-procs.tcl,v
diff -u -r1.2.2.4 -r1.2.2.5
--- openacs-4/packages/acs-mail-lite/tcl/legacy-inbound-procs.tcl	3 Jul 2020 07:53:44 -0000	1.2.2.4
+++ openacs-4/packages/acs-mail-lite/tcl/legacy-inbound-procs.tcl	18 Feb 2021 14:48:10 -0000	1.2.2.5
@@ -116,7 +116,7 @@
         }
     }
 
-    ad_proc parse_email {
+    ad_proc -private parse_email {
         -file:required
         -array:required
     } {
Index: openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl,v
diff -u -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	1 Feb 2021 10:55:56 -0000	1.9.2.1
+++ openacs-4/packages/acs-mail-lite/tcl/utils-procs.tcl	18 Feb 2021 14:48:10 -0000	1.9.2.2
@@ -12,7 +12,7 @@
 
 package require mime
 
-ad_proc acs_mail_lite::utils::build_subject {
+ad_proc -private acs_mail_lite::utils::build_subject {
     {-charset "UTF-8"}
     subject
 } {
@@ -85,7 +85,7 @@
     return $result
 }
 
-ad_proc acs_mail_lite::utils::build_date {
+ad_proc -private acs_mail_lite::utils::build_date {
     {date ""}
 } {
     Depending on the available mime package version, it uses either
@@ -172,10 +172,12 @@
     return [list $message_token]
 }
 
-ad_proc -public acs_mail_lite::utils::valid_email_p {
+ad_proc -private acs_mail_lite::utils::valid_email_p {
     email
 } {
-    Checks if the email is valid. Returns 1 if it is. Uses mime::parsemail to determine this
+    Checks if the email is valid. 
+    Uses mime::parsemail to determine this
+    @return boolean success
 } {
     array set test [lindex [mime::parseaddress "$email"] 0]
     if {$email ne $test(proper)} {
Index: openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl,v
diff -u -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl	5 Sep 2019 16:08:32 -0000	1.9.2.1
+++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl	18 Feb 2021 14:49:13 -0000	1.9.2.2
@@ -29,7 +29,7 @@
     return 1
 }
 
-ad_proc -public acs_messaging_format_as_html {
+ad_proc -private acs_messaging_format_as_html {
     {mime_type}
     {content}
 } {
Index: openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl,v
diff -u -r1.13.2.1 -r1.13.2.2
--- openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	2 Jan 2020 18:04:58 -0000	1.13.2.1
+++ openacs-4/packages/acs-service-contract/tcl/contract-procs.tcl	18 Feb 2021 14:49:13 -0000	1.13.2.2
@@ -289,7 +289,7 @@
     }
 }
 
-ad_proc -public acs_sc::contract::operation::parse_operations_spec {
+ad_proc -private acs_sc::contract::operation::parse_operations_spec {
     {-name:required}
     {-spec:required}
 } {
@@ -305,7 +305,7 @@
     }
 }
 
-ad_proc -public acs_sc::contract::operation::parse_spec {
+ad_proc -private acs_sc::contract::operation::parse_spec {
     {-contract_name:required}
     {-operation:required}
     {-spec:required}
Index: openacs-4/packages/acs-service-contract/tcl/msg-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/msg-type-procs.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/acs-service-contract/tcl/msg-type-procs.tcl	7 Aug 2017 23:47:57 -0000	1.5
+++ openacs-4/packages/acs-service-contract/tcl/msg-type-procs.tcl	18 Feb 2021 14:49:14 -0000	1.5.2.1
@@ -19,7 +19,7 @@
     db_exec_plsql insert_msg_type {}
 }
 
-ad_proc -public acs_sc::msg_type::delete {
+ad_proc -private acs_sc::msg_type::delete {
     {-msg_type_id ""}
     {-name ""}
 } {
@@ -48,7 +48,7 @@
     db_exec_plsql delete_by_name {}
 }
 
-ad_proc -public acs_sc::msg_type::parse_spec {
+ad_proc -private acs_sc::msg_type::parse_spec {
     {-name:required}
     {-spec:required}
 } {
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.16 -r1.66.2.17
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	16 Feb 2021 02:31:33 -0000	1.66.2.16
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	18 Feb 2021 14:50:20 -0000	1.66.2.17
@@ -1051,7 +1051,7 @@
     Returns the relative path corresponding to absolute path $path.
 } -
 
-ad_proc ad_proc_valid_switch_p {str} {
+ad_proc -private ad_proc_valid_switch_p {str} {
     Check if the provided argument looks like a switch (i.e. it starts
     with a dash and is not a number).
 } -
Index: openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl,v
diff -u -r1.13.2.2 -r1.13.2.3
--- openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl	13 Jul 2020 12:02:33 -0000	1.13.2.2
+++ openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl	18 Feb 2021 14:50:20 -0000	1.13.2.3
@@ -5,7 +5,7 @@
   @cvs-id $Id$
 }
 
-ad_proc -public ad_acs_administrator_exists_p {} {
+ad_proc -private ad_acs_administrator_exists_p {} {
 
     @return 1 if a user with admin privileges exists, 0 otherwise.
 
Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.87.2.9 -r1.87.2.10
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	28 Oct 2020 15:39:19 -0000	1.87.2.9
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	18 Feb 2021 14:50:20 -0000	1.87.2.10
@@ -1299,7 +1299,7 @@
 
 }
 
-ad_proc -public ad_set_element_value {
+ad_proc -private ad_set_element_value {
     -element:required
     value
 } {
Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.153.2.31 -r1.153.2.32
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	17 Feb 2021 20:51:42 -0000	1.153.2.31
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	18 Feb 2021 14:50:20 -0000	1.153.2.32
@@ -1890,7 +1890,7 @@
     }
 }
 
-ad_proc ad_port {} {
+ad_proc -private ad_port {} {
     Returns the port as it was typed in the browser,
     provided forcehostp is set to 0.
 } {
Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.126.2.47 -r1.126.2.48
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	17 Feb 2021 20:52:16 -0000	1.126.2.47
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	18 Feb 2021 14:50:20 -0000	1.126.2.48
@@ -2184,7 +2184,7 @@
     }
 }
 
-ad_proc -public ad_server_modules {} {
+ad_proc -private ad_server_modules {} {
     Return the list of the available server modules
     @author Gustaf Neumann
 } {