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.29 -r1.30
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	23 Oct 2024 17:34:30 -0000	1.29
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	28 Oct 2024 14:25:11 -0000	1.30
@@ -66,7 +66,8 @@
             if { [string is space [join [dict get $pa main]]] &&
                  (![dict exists $pa return] || [string is space [join [dict get $pa return]]]) &&
                  (![dict exists $pa param] || [string is space [join [dict get $pa param]]]) &&
-                 (![dict exists $pa see] || [string is space [join [dict get $pa see]]])
+                 (![dict exists $pa see] || [string is space [join [dict get $pa see]]]) &&
+                 (![dict exists $pa author] || [string is space [join [dict get $pa author]]])
              } {
                 if {[regexp "^(\\s+Class ::)?([join $ignored_namespaces |])::.*\$" $p m]} {
                     set test_result warning