Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v
diff -u -N -r1.26.2.3 -r1.26.2.4
--- openacs-4/packages/acs-templating/tcl/util-procs.tcl	13 Sep 2013 13:32:10 -0000	1.26.2.3
+++ openacs-4/packages/acs-templating/tcl/util-procs.tcl	3 Oct 2013 09:23:38 -0000	1.26.2.4
@@ -516,7 +516,7 @@
 } {
   set directory $url
 
-  set lastchar [string range $url [expr {[string length $url]-1}] end]
+  set lastchar [string range $url [string length $url]-1 end]
 
   if {$lastchar ne "/" } {