Index: openacs-4/packages/acs-admin/www/users/user-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-add-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/users/user-add-2.tcl	12 Jan 2002 10:31:29 -0000	1.2
+++ openacs-4/packages/acs-admin/www/users/user-add-2.tcl	9 Mar 2002 02:00:02 -0000	1.3
@@ -48,9 +48,8 @@
 </ul>
 "
 } else {
-    set upper_email [string toupper $email]
     set email_count [db_string unused "select count(email)
-from parties where upper(email) = :upper_email
+from parties where email = lower(:email)
 and party_id <> :user_id"]
 
     # note, we dont' produce an error if this is a double click