Index: openacs-4/packages/acs-tcl/tcl/acs-cache-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-cache-init.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-tcl/tcl/acs-cache-init.tcl	6 Jun 2020 09:43:19 -0000	1.1.2.3
+++ openacs-4/packages/acs-tcl/tcl/acs-cache-init.tcl	20 Jul 2022 11:50:31 -0000	1.1.2.4
@@ -7,4 +7,4 @@
 ::acs::$cacheType create ::acs::misc_cache \
     -package_key acs-tcl \
     -parameter MiscCache \
-    -default_size 100000
+    -default_size 100KB
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.3.2.1 -r1.3.2.2
--- openacs-4/packages/acs-tcl/tcl/acs-permissions-init.tcl	9 Feb 2020 15:23:29 -0000	1.3.2.1
+++ openacs-4/packages/acs-tcl/tcl/acs-permissions-init.tcl	20 Jul 2022 11:50:31 -0000	1.3.2.2
@@ -3,13 +3,13 @@
             # file like the following:
 #
 # ns_section ns/server/${server}/acs/acs-tcl
-#   ns_param PermissionCacheSize        100000
+#   ns_param PermissionCacheSize        100KB
 #   ns_param PermissionCachePartitions  2
 #
 ::acs::KeyPartitionedCache create ::acs::permission_cache \
     -package_key acs-tcl \
     -parameter PermissionCache \
-    -default_size 100000 \
+    -default_size 100KB \
     -partitions 2
 
 
Index: openacs-4/packages/acs-tcl/tcl/community-core-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-init.tcl,v
diff -u -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/acs-tcl/tcl/community-core-init.tcl	6 Aug 2020 20:12:55 -0000	1.4.2.2
+++ openacs-4/packages/acs-tcl/tcl/community-core-init.tcl	20 Jul 2022 11:50:31 -0000	1.4.2.3
@@ -5,20 +5,20 @@
 # following:
 #
 #    ns_section ns/server/${server}/acs/acs-tcl
-#         ns_param PartyInfoCacheSize          2000000
-#         ns_param PartyInfoCacheTimeout          3600
+#         ns_param PartyInfoCacheSize             2MB
+#         ns_param PartyInfoCacheTimeout          1h
 #
 # The timeout is responsible, how precise/recent e.g. last_visit should be.
 #
 ns_cache create party_info_cache \
-    -size [parameter::get \
-               -package_id [apm_package_id_from_key acs-tcl] \
+    -size [parameter::get_from_package_key \
+               -package_key acs-tcl \
                -parameter PartyInfoCacheSize \
-               -default 2000000] \
-    -timeout [parameter::get \
-                  -package_id [apm_package_id_from_key acs-tcl] \
+               -default 2MB] \
+    -timeout [parameter::get_from_package_key \
+                  -package_key acs-tcl \
                   -parameter PartyInfoCacheTimeout \
-                  -default 3600]
+                  -default 1h]
 
 #
 # Create a cache for keeping person_info
@@ -27,20 +27,20 @@
 # following:
 #
 #    ns_section ns/server/${server}/acs/acs-tcl
-#         ns_param PersonInfoCacheSize          2000000
-#         ns_param PersonInfoCacheTimeout          3600
+#         ns_param PersonInfoCacheSize          2MB
+#         ns_param PersonInfoCacheTimeout       1h
 #
 # The timeout is responsible, how precise/recent e.g. last_visit should be.
 #
 ns_cache create person_info_cache \
-    -size [parameter::get \
-               -package_id [apm_package_id_from_key acs-tcl] \
+    -size [parameter::get_from_package_key \
+               -package_key acs-tcl \
                -parameter PersonInfoCacheSize \
-               -default 2000000] \
-    -timeout [parameter::get \
-                  -package_id [apm_package_id_from_key acs-tcl] \
+               -default 2MB] \
+    -timeout [parameter::get_from_package_key \
+                  -package_key acs-tcl \
                   -parameter PersonInfoCacheTimeout \
-                  -default 3600]
+                  -default 1h]
 
 
 #
@@ -50,20 +50,20 @@
 # following:
 #
 #    ns_section ns/server/${server}/acs/acs-tcl
-#         ns_param UserInfoCacheSize          2000000
-#         ns_param UserInfoCacheTimeout          3600
+#         ns_param UserInfoCacheSize          2MB
+#         ns_param UserInfoCacheTimeout       1h
 #
 # The timeout is responsible, how precise/recent e.g. last_visit should be.
 #
 ns_cache create user_info_cache \
-    -size [parameter::get \
-               -package_id [apm_package_id_from_key acs-tcl] \
+    -size [parameter::get_from_package_key \
+               -package_key acs-tcl \
                -parameter UserInfoCacheSize \
-               -default 2000000] \
-    -timeout [parameter::get \
-                  -package_id [apm_package_id_from_key acs-tcl] \
+               -default 2MB] \
+    -timeout [parameter::get_from_package_key \
+                  -package_key acs-tcl \
                   -parameter UserInfoCacheTimeout \
-                  -default 3600]
+                  -default 1h]