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 -r1.47.2.2 -r1.47.2.3
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	5 Jun 2019 08:27:27 -0000	1.47.2.2
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	19 May 2020 19:15:36 -0000	1.47.2.3
@@ -162,13 +162,11 @@
     }
 
     # We have a per-request cache here
-    set key ::permission__permission_p__cache($party_id,$object_id,$privilege)
-    if { ![info exists $key] } {
-        set $key [db_string select_permission_p {
+    return [acs::per_request_cache eval -key acs-tcl.permission_p__cache($party_id,$object_id,$privilege) {
+        db_string select_permission_p {
             select acs_permission.permission_p(:object_id, :party_id, :privilege)::integer from dual
-        }]
-    }
-    return [set $key]
+        }
+    }]
 }