Index: openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl,v diff -u -r1.32.2.2 -r1.32.2.3 --- openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl 18 Sep 2015 07:33:49 -0000 1.32.2.2 +++ openacs-4/packages/acs-tcl/tcl/navigation-procs.tcl 2 Jan 2016 20:42:58 -0000 1.32.2.3 @@ -290,7 +290,9 @@ if { [string match -nocase "www.*" $location_hostname] } { set location_hostname [string range $location_hostname 4 end] } - db_0or1row -cache_key util-${location_hostname}-node-id get_node_id_from_hostname "select node_id from host_node_map where host = :location_hostname" + db_0or1row -cache_key util-${location_hostname}-node-id get_node_id_from_hostname { + select node_id from host_node_map where host = :location_hostname + } if { ![info exists node_id ] } { set node_id "" }