Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -N -r1.98.2.9 -r1.98.2.10
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	14 Feb 2021 09:47:31 -0000	1.98.2.9
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	2 Jul 2021 17:36:31 -0000	1.98.2.10
@@ -1091,10 +1091,11 @@
             lappend cols "$var = :$var"
         }
     }
-    db_dml party_update {}
     if {[info exists email]} {
+        set email [string tolower $email]
         db_dml object_title_update {}
     }
+    db_dml party_update {}
     party::flush_cache -party_id $party_id
 }