Index: openacs-4/packages/acs-tcl/acs-tcl.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/acs-tcl.info,v
diff -u -r1.70.2.28 -r1.70.2.29
--- openacs-4/packages/acs-tcl/acs-tcl.info	6 Aug 2017 11:17:31 -0000	1.70.2.28
+++ openacs-4/packages/acs-tcl/acs-tcl.info	19 Jan 2018 19:38:54 -0000	1.70.2.29
@@ -9,7 +9,7 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
     
-    <version name="5.9.1" url="http://openacs.org/repository/download/apm/acs-tcl-5.9.1.apm">
+    <version name="5.9.2d1" url="http://openacs.org/repository/download/apm/acs-tcl-5.9.2d1.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>The Kernel Tcl API library.</summary>
         <release-date>2017-08-06</release-date>
@@ -18,7 +18,7 @@
         <license>GPL version 2</license>
         <maturity>3</maturity>
 
-        <provides url="acs-tcl" version="5.9.1"/>
+        <provides url="acs-tcl" version="5.9.2d1"/>
         <requires url="acs-bootstrap-installer" version="5.9.1"/>
         <requires url="acs-kernel" version="5.9.1"/>
 
Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.93.2.22 -r1.93.2.23
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	7 Aug 2017 18:40:08 -0000	1.93.2.22
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	19 Jan 2018 19:38:54 -0000	1.93.2.23
@@ -73,7 +73,7 @@
     && [apm_package_installed_p xotcl-core]
 } {
     set UseXotclSiteNodes 1
-    ns_log notice "use XOTcl Site Nodes"
+    ns_log notice "site-nodes: use XOTcl based site-node implementation"
 }
 
 #----------------------------------------------------------------------
@@ -1475,8 +1475,23 @@
             set createCache [catch {ns_cache flush xo_site_nodes NOTHING}]
         }
         if {$createCache} {
-            ns_log notice "creating xo_site_nodes cache"
-            ns_cache create xo_site_nodes -size 2000000
+            #
+            # Create caches. The sizes can be tailored in the config
+            # file like the following:
+            #
+            # ns_section ns/server/${server}/acs/acs-tcl
+            #   ns_param SiteNodesCacheSize        2000000
+            
+            foreach {cache parameter default} {
+                xo_site_nodes          SiteNodesCacheSize        2000000
+            } {
+                set size [parameter::get_from_package_key \
+                              -package_key acs-tcl \
+                              -parameter $parameter \
+                              -default $default]
+                ns_log notice "site-nodes: create cache $cache -size $size"
+                ns_cache create $cache -size $size
+            }
         }
 
         #
@@ -1485,7 +1500,6 @@
         # the object mixin deactivates caching for these methods
         # completely.
         #
-
         ::nx::Class create SiteNodeCache {
 
             :public method get_children {