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