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.11 -r1.20.2.12
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	3 Feb 2020 17:10:22 -0000	1.20.2.11
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	16 Dec 2020 17:14:27 -0000	1.20.2.12
@@ -218,7 +218,9 @@
     foreach p [lsort -dictionary [nsv_array names api_proc_doc]] {
         set param_unknown 0
         set proc_doc [nsv_get api_proc_doc $p]
-        if {[dict exists $proc_doc param]} {
+        set deprecated_p [expr {[dict exists $proc_doc deprecated_p] &&
+                                [dict get $proc_doc deprecated_p]}]
+        if {!$deprecated_p && [dict exists $proc_doc param]} {
             incr count
             set params [dict get $proc_doc param]
             #