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.5 -r1.20.2.6
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	20 Nov 2019 16:46:06 -0000	1.20.2.5
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	16 Jan 2020 15:36:00 -0000	1.20.2.6
@@ -42,6 +42,7 @@
     set good 0
     set allowedChars {^[a-zA-Z_0-9_]+$}
     set allowedToplevel {^(_|(ad|acs|aa|adp|api|apm|chat|db|doc|ds|dt|cr|export|fs|general_comments|lc|news|ns|package|pkg_info|relation|rp|rss|sec|server_cluster|content_search|util|xml)_.+|callback|exec)$}
+    set serverModuleProcs {^(h264open|h264length|h264read|h264eof|h264close)$}
     set internalUse {^(_.+|AcsSc[.].+|callback::.+|install::.+)$}
     set prescribed {^((after|before|notifications)-(install|instantiate|uninstall|uninstantiate|upgrade))$}
     foreach p [lsort -dictionary [nsv_array names api_proc_doc]] {
@@ -50,7 +51,7 @@
         incr count
         set tail [namespace tail $p]
         set qualifiers [regsub -all "::" [namespace qualifiers $p] "__"]
-        if {[regexp $internalUse $p]} continue
+        if {[regexp $internalUse $p] || [regexp $serverModuleProcs $p]} continue
         set pa [nsv_get api_proc_doc $p]
         set protection [expr {[dict exists $pa protection] && "public" in [dict get $pa protection]
                           ? "public" : "private"}]