Index: openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	10 Jul 2002 11:57:19 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	20 Sep 2002 21:46:34 -0000	1.3
@@ -46,6 +46,12 @@
   }
 }
 
+# JCD this belongs in acs-permission-init.tcl but I did not want to duplicate [ad_acs_kernel_id]
+# Nuke the existing definition. and create one with the parameter set
+rename permission::cache_p {}
+proc permission::cache_p {} "return [ad_parameter -package_id [ad_acs_kernel_id] PermissionCacheP permissions 0]"
+
+
 nsv_set rp_properties request_count 0
 
 foreach method {GET HEAD POST} {