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 -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-init.tcl	23 Jun 2018 17:49:22 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-init.tcl	27 Jun 2018 08:15:29 -0000	1.2
@@ -5,16 +5,13 @@
     # 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
-        }
+    if {![info exists ::permission::cache_created]} {
+	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
+	set permission::cache_created 1
     }
 }