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.5 -r1.93.2.6
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	26 Sep 2015 11:25:23 -0000	1.93.2.5
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	8 Oct 2015 14:27:23 -0000	1.93.2.6
@@ -1423,8 +1423,13 @@
         # Caching
         #####################################################
 
-        if {[catch {ns_cache flush xo_site_nodesNOTHING}]} {
-            ns_log notice "xotcl-core: creating xo_site_nodes cache"
+        if {[info commands ::ns_cache_names] ne ""} {
+            set createCache [expr {"xo_site_nodes" ni [::ns_cache_names]}]
+        } else {
+            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
         }