Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.xql	20 Jan 2002 21:42:55 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.xql	9 Mar 2002 02:00:02 -0000	1.4
@@ -30,7 +30,7 @@
     from dual
     where not exists (select 1
                       from parties
-                      where upper(email) = upper(:email))
+                      where email = lower(:email))
   </querytext>
 </fullquery>