Index: openacs-4/packages/contacts/www/contact-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/contact-edit.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/contacts/www/contact-edit.tcl	28 Oct 2005 21:17:02 -0000	1.14
+++ openacs-4/packages/contacts/www/contact-edit.tcl	18 Dec 2005 21:31:29 -0000	1.15
@@ -172,6 +172,10 @@
 	category::map_object -remove_old -object_id $party_id $cat_ids
 	if {$object_type == "organization"} {
 	    callback contact::organization_new -package_id $package_id -contact_id $party_id -name $name
+	    foreach employee_id [contact::util::get_employees -organization_id $party_id] {
+		util_memoize_flush_regexp "::contact::employee::get_not_cached -employee_id $employee_id *"
+		util_memoize_flush_regexp "::contact::employee_not_cached -employee_id $employee_id"
+	    }
 	} else {
 	    callback contact::person_add -package_id $package_id -person_id $party_id
 	}