Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v diff -u -r1.36.2.35 -r1.36.2.36 --- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 14 Apr 2017 09:01:45 -0000 1.36.2.35 +++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 21 Apr 2017 14:22:46 -0000 1.36.2.36 @@ -769,7 +769,7 @@ if { ![info exists validate] } { set validate [list] - } + }d set validate_len [llength $validate] for { set i 0 } { $i < $validate_len } { incr i } {