Index: openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl,v
diff -u -r1.2.14.1 -r1.2.14.2
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	10 Sep 2015 08:22:03 -0000	1.2.14.1
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	13 Feb 2016 15:23:47 -0000	1.2.14.2
@@ -15,7 +15,7 @@
     set good 0
     foreach p [lsort -dictionary [nsv_array names api_proc_doc]] {
         array set pa [nsv_get api_proc_doc $p]
-        if { $pa(public_p)
+        if { "public" in $pa(protection)
              && !($pa(deprecated_p) || $pa(warn_p))
          } {
             incr count