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 -N -r1.20.2.7 -r1.20.2.8
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	21 Jan 2020 12:55:18 -0000	1.20.2.7
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	21 Jan 2020 14:02:54 -0000	1.20.2.8
@@ -43,6 +43,7 @@
     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|dom)$}
+    set functionalOps {^f::(-|/)$}
     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]] {
@@ -51,7 +52,7 @@
         incr count
         set tail [namespace tail $p]
         set qualifiers [regsub -all "::" [namespace qualifiers $p] "__"]
-        if {[regexp $internalUse $p] || [regexp $serverModuleProcs $p]} continue
+        if {[regexp $internalUse $p] || [regexp $serverModuleProcs $p] || [regexp $functionalOps $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"}]