Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	12 May 2002 20:57:02 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	5 Jul 2002 05:35:07 -0000	1.9
@@ -2772,7 +2772,7 @@
     # This regexp was very kindly contributed by Jeff Friedl, author of 
     # _Mastering Regular Expressions_ (O'Reilly 1997).
 
-    return [regexp "^\[^@<>\"\t ]+@\[^@<>\".\t]+(\\.\[^@<>\".\n ]+)+$" $query_email]
+    return [regexp "^\[^@<>\"\t ]+@\[^@<>\".\t ]+(\\.\[^@<>\".\n ]+)+$" $query_email]
 }
 
 ad_proc util_email_unique_p { email } {