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.140 -r1.141
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	28 Nov 2018 22:50:19 -0000	1.140
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	11 Feb 2019 10:06:03 -0000	1.141
@@ -1544,7 +1544,7 @@
                 #
                 # Try to get value from urlspace
                 #
-                set ID [ns_urlspace get -key sitenode $url]
+                set ID [ns_urlspace get -id $::acs::siteNodesID -key sitenode $url]
                 if {$ID eq ""} {
                     #
                     # Get value the classical way, caching potentially
@@ -1576,10 +1576,10 @@
                             # in the urlspace.
                             #
                             set short_url [site_node::get_url -node_id $ID]
-                            set cmd [list ns_urlspace set -key sitenode $short_url* $ID]
+                            set cmd [list ns_urlspace set -id $::acs::siteNodesID -key sitenode $short_url* $ID]
                             #ns_log notice "--- get_node_id save in urlspace <$cmd> -> <$ID>"
                             {*}$cmd
-                            #ns_log notice "---\n[join [ns_urlspace list] \n]"
+                            #ns_log notice "---\n[join [ns_urlspace list -id $::acs::siteNodesID] \n]"
                         }
                         return [set $key $ID]
                     }
@@ -1594,15 +1594,17 @@
                 # necessary).
                 #
 
-                ns_urlspace unset -recurse -key sitenode $url
+                ns_urlspace unset -id $::acs::siteNodesID -recurse -key sitenode $url
                 next
             }
 
 
          }
         site_node object mixins add SiteNodesCache
         if {[info commands ns_urlspace] ne ""} {
-            ns_log notice "... using ns_urlspace for reduced redundancy in site node caches"
+            set ::acs::siteNodesID [ns_urlspace new]
+            ns_log notice \
+                "... using ns_urlspace $::acs::siteNodesID for reduced redundancy in site node caches"
             site_node object mixins add SiteNodeUrlspaceCache
         }