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.19 -r1.93.2.20 --- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 10 Jan 2017 13:59:46 -0000 1.93.2.19 +++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 15 Apr 2017 09:52:46 -0000 1.93.2.20 @@ -1208,7 +1208,7 @@ set subsite_get_url [subsite::get_url] set joined_url [file join $subsite_get_url $ns_conn_url] # join drops ending slash for some cases. Add back if appropriate. - if { [string range $ns_conn_url end end] eq "/" && [string range $joined_url end end] ne "/" } { + if { [string index $ns_conn_url end] eq "/" && [string index $joined_url end] ne "/" } { append joined_url "/" } return $joined_url