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 -r1.47.2.1
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	14 Oct 2018 18:38:14 -0000	1.47
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-procs.tcl	5 Jun 2019 07:33:03 -0000	1.47.2.1
@@ -18,7 +18,7 @@
     returns 0 or 1 depending if permission_p caching is enabled or disabled.
     by default caching is disabled.
 } {
-    set cache_p [parameter::get -package_id [ad_acs_kernel_id] -parameter PermissionCacheP -default 0]
+    set cache_p [parameter::get -package_id $::acs::kernel_id -parameter PermissionCacheP -default 0]
     namespace eval ::permission [list proc cache_p {} "return $cache_p"]
     return $cache_p
 }
@@ -331,6 +331,9 @@
     } {
         return [acs::permission_cache eval \
                     -partition_key $party_id \
+                    -expires [parameter::get -package_id $::acs::kernel_id \
+                                  -parameter PermissionCacheTimeout \
+                                  -default 300] \
                     $party_id/$object_id/$privilege {
                         permission::permission_p_not_cached \
                             -party_id $party_id \
@@ -407,7 +410,7 @@
                          -party_id $party_id \
                          -object_id $object_id \
                          -privilege $privilege] \
-                    [parameter::get -package_id [ad_acs_kernel_id] \
+                    [parameter::get -package_id $::acs::kernel_id \
                          -parameter PermissionCacheTimeout \
                          -default 300]]
     }