Index: openacs-4/packages/acs-tcl/tcl/acs-permissions-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-permissions-init.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-init.tcl	23 Jun 2018 17:49:22 -0000	1.1
@@ -0,0 +1,20 @@
+if {[info commands ns_cache_eval] ne ""} {
+    #
+    # Permission cache management for NaviServer.
+    #
+    # Some of this code will go away, when abstract cache management
+    # will be introduced.
+    #
+    try {
+        ns_cache_flush permission_cache NOTHING
+    } on error {errorMsg} {
+        if {[info commands ad_acs_kernel_id] ne ""} {
+            ns_log notice "acs-tcl: creating permission cache"
+            ns_cache_create \
+                -expires [parameter::get -package_id [ad_acs_kernel_id] \
+                              -parameter PermissionCacheTimeout \
+                              -default 300] \
+                permission_cache 100000
+        }
+    }
+}