Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl,v
diff -u -N -r1.47.2.6 -r1.47.2.7
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	6 Feb 2021 20:43:14 -0000	1.47.2.6
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	23 Feb 2021 14:42:38 -0000	1.47.2.7
@@ -32,7 +32,6 @@
 } {
     db_exec_plsql grant_permission {}
     permission::cache_flush -party_id $party_id -object_id $object_id -privilege $privilege
-    permission::permission_thread_cache_flush
 }
 
 ad_proc -public permission::revoke {
@@ -44,7 +43,6 @@
 } {
     db_exec_plsql revoke_permission {}
     permission::cache_flush -party_id $party_id -object_id $object_id -privilege $privilege
-    permission::permission_thread_cache_flush
 }
 
 # args to permission_p and permission_p_no_cache must match
@@ -350,6 +348,8 @@
 
     @see permission::permission_p
 } {
+    permission::permission_thread_cache_flush
+
     if {[namespace which ::acs::permission_cache] eq ""} {
         return