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 -r1.41 -r1.42
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	18 Dec 2003 17:07:16 -0000	1.41
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	2 Mar 2004 17:01:38 -0000	1.42
@@ -221,6 +221,7 @@
     update the name of a person
 } {
     db_dml update_person {}
+    db_dml update_object_title {}
     name_flush -person_id $person_id
 }
 
@@ -625,6 +626,9 @@
         }
     }
     db_dml party_update {}
+    if {[info exists email]} {
+	db_dml object_title_update {}
+    }
     acs_user::flush_cache -user_id $party_id
 }