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.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] #