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.14 -r1.61.2.15
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	24 Jun 2021 10:42:55 -0000	1.61.2.14
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	24 Jun 2021 11:36:35 -0000	1.61.2.15
@@ -2030,7 +2030,7 @@
     @author Randy Beggs (randyb@arsdigita.com)
     @creation-date 22 August 2000
 } {
-    set valid_p [regexp "^\[^@\t ]+@\[^@.\t]+(\\.\[^@.\n ]+)+$" $value]
+    set valid_p [util_email_valid_p $value]
     if { !$valid_p } {
         ad_complain [_ acs-tcl.lt_name_does_not_appear_]
         return 0