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 -N -r1.116 -r1.117
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	5 Jul 2018 10:33:04 -0000	1.116
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	7 Jul 2018 09:03:51 -0000	1.117
@@ -1452,7 +1452,16 @@
 
             :public method get_node_id {-url:required} {
                 #ns_log notice "--- get_node_id from urlspace <$url>"
+
+                # Try per-request caching
                 #
+                set key ::__node_id($url)
+                if {[info exists $key]} {
+                    #ns_log notice "==== returning cached value [set $key]"
+                    return [set $key]
+                }
+                
+                #
                 # Try to get value from urlspace
                 #
                 set ID [ns_urlspace get -key sitenode $url]
@@ -1487,7 +1496,7 @@
                             {*}$cmd
                             #ns_log notice "---\n[join [ns_urlspace list] \n]"
                         }
-                        #return [set $key $ID]
+                        return [set $key $ID]
                     }
                 }
                 return $ID