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