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 -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.xql	19 Jan 2002 23:45:46 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.xql	20 Jan 2002 21:42:55 -0000	1.3
@@ -30,7 +30,7 @@
     from dual
     where not exists (select 1
                       from parties
-                      where email = :email)
+                      where upper(email) = upper(:email))
   </querytext>
 </fullquery>