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.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 {