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 {