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.16 -r1.17
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	25 Jul 2018 16:47:34 -0000	1.16
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	25 Jul 2018 17:15:19 -0000	1.17
@@ -188,9 +188,7 @@
             # Check if the last parameter is 'args', as it is not included into
             # 'switches' or 'positionals', and add it to the real parameter list
             #
-            if {[dict exists $proc_doc arg_list]
-                && [lindex [dict get $proc_doc arg_list] end] eq "args"
-            } {
+            if {[dict get $proc_doc varargs_p]} {
                 lappend real_params args
             }
             #