Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.75 -r1.76
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	1 Apr 2006 07:07:16 -0000	1.75
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	3 Apr 2006 18:26:05 -0000	1.76
@@ -597,6 +597,10 @@
     Flush memorized information related to this contact
 } {
     util_memoize_flush_regexp "contact(.*?)${party_id}"
+    # in order to flush person::name and any other
+    # procs that may show up there we also flush person
+    # procs for this party_id
+    util_memoize_flush_regexp "person(.*?)${party_id}"
 }
 
 ad_proc -public contact::name {