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.20.2.18 -r1.20.2.19
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	5 May 2021 15:28:28 -0000	1.20.2.18
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	1 Oct 2021 07:30:07 -0000	1.20.2.19
@@ -65,6 +65,7 @@
     set functionalOps {^f::(-|/)$}
     set internalUse {^(_.+|AcsSc[.].+|callback::.+|install::.+|.*[-](lob|text|gridfs|file))$}
     set prescribed {^((after|before|notifications)-([a-zA-Z0-9_]+))$}
+    set nameWarning {public error private warning}
 
     foreach p [lsort -dictionary [nsv_array names api_proc_doc]] {
         if {[string match "* *" $p]} continue
@@ -99,7 +100,8 @@
                     )
                    && ![regexp $prescribed $tail]
                } {
-            aa_log_result fail "proc '$p' ($protection): name/namespace contains invalid characters"
+            aa_log_result [dict get $nameWarning $protection] \
+                "proc '$p' ($protection): name/namespace contains invalid characters"
         } else {
             incr good
         }