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.25 -r1.20.2.26 --- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl 29 Aug 2022 09:47:01 -0000 1.20.2.25 +++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl 9 Sep 2022 13:53:33 -0000 1.20.2.26 @@ -31,7 +31,10 @@ && !($pa(deprecated_p) || $pa(warn_p)) } { incr count - if { [string is space $pa(main)] } { + if { [string is space [join $pa(main)]] && + (![info exists pa(return)] || [string is space [join $pa(return)]]) && + (![info exists pa(param)] || [string is space [join $pa(param)]]) + } { if {[regexp "^([join $ignored_namespaces |])::.*\$" $p m]} { set test_result warning } else {