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
Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.140.2.70 -r1.140.2.71
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	15 Apr 2017 09:16:10 -0000	1.140.2.70
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	15 Apr 2017 09:52:46 -0000	1.140.2.71
@@ -2798,7 +2798,7 @@
 } {
     set path [ad_conn url]
 
-    set lastchar [string range $path end end]
+    set lastchar [string index $path end]
     if {$lastchar eq "/" } {
         return $path
     } else { 
Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -r1.30.2.25 -r1.30.2.26
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	1 Apr 2017 12:01:11 -0000	1.30.2.25
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	15 Apr 2017 09:56:20 -0000	1.30.2.26
@@ -1324,7 +1324,7 @@
                                 #
                                 # Does the line end with a open brace?
                                 #
-                                if {[string range $line end end] eq "\{"} {
+                                if {[string index $line end] eq "\{"} {
                                     # Do we have a signature of an
                                     # ad_proc (ad_proc ?-options ...?
                                     # name args) before that?
Index: openacs-4/packages/xowiki/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/chat-procs.tcl,v
diff -u -r1.19.2.3 -r1.19.2.4
--- openacs-4/packages/xowiki/tcl/chat-procs.tcl	30 Nov 2016 18:36:25 -0000	1.19.2.3
+++ openacs-4/packages/xowiki/tcl/chat-procs.tcl	15 Apr 2017 09:56:20 -0000	1.19.2.4
@@ -44,7 +44,7 @@
     #my log "chat_id=$chat_id, path=$path"
     if {$path eq ""} {
       set path [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
-    } elseif {[string range $path end end] ne "/"} {
+    } elseif {[string index $path end] ne "/"} {
       append path /
     }