Index: openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl	10 Oct 2003 16:34:06 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl	14 Oct 2003 09:11:52 -0000	1.5
@@ -36,7 +36,18 @@
             }
             db_dml update_modifying_user {}
         }
-        acs_user::flush_cache -user_id $user_id
+
+        set rel_user_id [db_string select_rel_user_id { 
+            select u.user_id
+            from   acs_rels r,
+                   users u
+            where  r.rel_id = :rel_id 
+            and    u.user_id = r.object_id_two
+        } -default {}]
+
+        if { ![empty_string_p $rel_user_id] } {
+            acs_user::flush_cache -user_id $rel_user_id
+        }
     }
 
     ad_proc -public approve {