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.61.2.13 -r1.61.2.14 --- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 27 May 2021 19:08:25 -0000 1.61.2.13 +++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl 24 Jun 2021 10:42:55 -0000 1.61.2.14 @@ -2028,7 +2028,7 @@ @author Philip Greenspun (philip@mit.edu) @author Randy Beggs (randyb@arsdigita.com) - @creation-date 22 August 20000 + @creation-date 22 August 2000 } { set valid_p [regexp "^\[^@\t ]+@\[^@.\t]+(\\.\[^@.\n ]+)+$" $value] if { !$valid_p } {