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.98.2.15 -r1.98.2.16
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	7 Sep 2022 13:56:39 -0000	1.98.2.15
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	29 Dec 2022 12:05:24 -0000	1.98.2.16
@@ -148,7 +148,7 @@
 
     @see person::get_person_info
 } {
-    ns_cache flush person_info_cache $person_id
+    acs::clusterwide ns_cache flush person_info_cache $person_id
 }
 
 ad_proc -deprecated -public person::name_flush {
@@ -390,7 +390,7 @@
             if {$user_id eq ""} {
                 break
             }
-            return $user_id 
+            return $user_id
         }]
         break
     }
@@ -600,10 +600,10 @@
     @see acs_user::get_user_info
 } {
     set user [acs_user::get_user_info -user_id $user_id]
-    ns_cache flush user_info_cache [list get_by_username \
+    acs::clusterwide ns_cache flush user_info_cache [list get_by_username \
                                         -authority_id [dict get $user authority_id] \
                                         -username [dict get $user username]]
-    ns_cache flush user_info_cache [list get_user_info $user_id]
+    acs::clusterwide ns_cache flush user_info_cache [list get_user_info $user_id]
 }
 
 ad_proc -public acs_user::flush_cache {
@@ -734,9 +734,9 @@
 }
 
 
-ad_proc -public acs_user::ScreenName {} {    
+ad_proc -public acs_user::ScreenName {} {
     Get the value of the ScreenName parameter. Checked to ensure that
-    it only returns none, solicit, or require.    
+    it only returns none, solicit, or require.
 } {
     set value [parameter::get \
                    -parameter ScreenName \
@@ -872,9 +872,9 @@
     Flush the party cache
 } {
     set email [party::get -party_id $party_id -element email]
-    
+
     foreach key [list $party_id [list get_by_email $email]] {
-        ns_cache flush party_info_cache $key
+        acs::clusterwide ns_cache flush party_info_cache $key
     }
 }
 
@@ -1124,7 +1124,7 @@
         }]
         break
     }
-    
+
     return $party_id
 }
 
@@ -1214,7 +1214,7 @@
 } {
     # Flush the portrait cache
     set key [list get_portrait_id -user_id $user_id]
-    ns_cache flush user_info_cache $key
+    acs::clusterwide ns_cache flush user_info_cache $key
 }
 
 ad_proc -public acs_user::create_portrait {