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.44 -r1.45
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	8 Mar 2004 14:07:12 -0000	1.44
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	12 Mar 2004 18:48:55 -0000	1.45
@@ -223,6 +223,7 @@
     update the name of a person
 } {
     db_dml update_person {}
+    db_dml update_object_title {}
     name_flush -person_id $person_id
 }
 
@@ -627,6 +628,9 @@
         }
     }
     db_dml party_update {}
+    if {[info exists email]} {
+	db_dml object_title_update {}
+    }
     acs_user::flush_cache -user_id $party_id
 }