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 -r1.3
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	13 Jul 2006 15:09:08 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	7 Aug 2017 23:48:00 -0000	1.3
@@ -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
@@ -54,3 +54,9 @@
     aa_log "Found $good of $count procs checked"
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: