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.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	7 Aug 2017 23:48:00 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	19 Jul 2018 11:43:19 -0000	1.4
@@ -15,7 +15,8 @@
     set good 0
     foreach p [lsort -dictionary [nsv_array names api_proc_doc]] {
         array set pa [nsv_get api_proc_doc $p]
-        if { "public" in $pa(protection)
+        if { [info exists pa(protection)]
+             && "public" in $pa(protection)
              && !($pa(deprecated_p) || $pa(warn_p))
          } {
             incr count
@@ -41,7 +42,9 @@
     set good 0
     foreach p [lsort -dictionary [nsv_array names api_proc_doc]] {
         array set pa [nsv_get api_proc_doc $p]
-        if { $pa(deprecated_p)||$pa(warn_p) } {
+        if { ([info exists pa(deprecated_p)] && $pa(deprecated_p))
+             || ([info exists pa(warn_p)] && $pa(warn_p))
+         } {
             incr count
             if { ![info exists pa(see)] || [string is space $pa(see)] } {
                 aa_log_result fail "No @see for deprecated proc $p"