Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -N -r1.105 -r1.106
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	19 Jul 2018 14:01:07 -0000	1.105
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	25 Jul 2018 01:38:32 -0000	1.106
@@ -164,7 +164,7 @@
 }
 
 
-ad_proc -private db_driverkey {
+ad_proc -public db_driverkey {
     {-handle_p 0}
     dbn
 } {
@@ -1011,7 +1011,7 @@
 }
 
 
-ad_proc -private db_exec { type db statement_name pre_sql {ulevel 2} args } {
+ad_proc -public db_exec { type db statement_name pre_sql {ulevel 2} args } {
 
     A helper procedure to execute a SQL statement, potentially binding
     depending on the value of the $bind variable in the calling environment
Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -N -r1.41 -r1.42
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	14 May 2018 13:14:08 -0000	1.41
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	25 Jul 2018 01:38:32 -0000	1.42
@@ -407,9 +407,9 @@
     }
 }
 
-ad_proc -private apm_gzip_cmd {} {
+ad_proc -public apm_gzip_cmd {} {
 
-    @return A valid pointer to gzip, 0 otherwise.
+    @return A valid command name for gzip.
     
 } {
     return gzip
@@ -418,7 +418,7 @@
 
 ad_proc -private apm_tar_cmd {} {
 
-    @return A valid pointer to tar, 0 otherwise.
+    @return A valid command name for tar.
     
 } {
     return tar
Index: openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl,v
diff -u -N -r1.32 -r1.33
--- openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl	7 Aug 2017 23:47:59 -0000	1.32
+++ openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl	25 Jul 2018 01:39:50 -0000	1.33
@@ -22,7 +22,7 @@
     return $value
 }
 
-ad_proc -private apm_attribute_value {
+ad_proc -public apm_attribute_value {
     {-default ""}
     element attribute
 } {
Index: openacs-4/packages/acs-tcl/tcl/exception-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/exception-procs.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/exception-procs.tcl	11 Jun 2018 09:14:55 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/exception-procs.tcl	25 Jul 2018 01:39:50 -0000	1.10
@@ -15,7 +15,7 @@
     error "This version of OpenACS requires the ::try command (built-in in 8.6+, package for 8.5"
 }
 
-ad_proc -private ad_raise {exception {value ""}} {
+ad_proc -public ad_raise {exception {value ""}} {
     @author rhs@mit.edu
     @creation-date 2000-09-09
 
@@ -26,7 +26,7 @@
     return -code error -errorcode [list "AD" "EXCEPTION" $exception] $value
 }
 
-ad_proc ad_exception {errorCode} {
+ad_proc -public ad_exception {errorCode} {
     @author gustaf.neumann@wu-wien.ac.at
     @creation-date 2015-12-31
 
Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -N -r1.56 -r1.57
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	26 Jun 2018 12:10:39 -0000	1.56
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	25 Jul 2018 01:40:35 -0000	1.57
@@ -120,7 +120,7 @@
     return [llength $::ad_page_contract_complaints]
 }
 
-ad_proc -private ad_complaints_get_list {} {
+ad_proc -public ad_complaints_get_list {} {
     Returns the list of complaints encountered so far.
 
     @author Lars Pind (lars@pinds.com)
@@ -745,7 +745,7 @@
     # Parse -properties argument
     #
     ####################
-    # This must happen even if the query (aka parameters, formals) is empty
+    # This must happen even if the query (a.k.a. parameters, formals) is empty
 
     if { [info exists properties] } {
         upvar 1 __page_contract_property property