Index: openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl,v diff -u -N -r1.20 -r1.20.2.1 --- openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 12 Apr 2013 16:12:57 -0000 1.20 +++ openacs-4/packages/acs-templating/tcl/acs-integration-procs.tcl 3 Oct 2013 09:23:37 -0000 1.20.2.1 @@ -124,18 +124,18 @@ if { [string first "... while { [regexp -indices {\x002\(\x001([^\x001]*)\x001\)\x002} $parsed_template indices key] } { - set before [string range $parsed_template 0 [expr {[lindex $indices 0] - 1}]] - set after [string range $parsed_template [expr {[lindex $indices 1] + 1}] end] + set before [string range $parsed_template 0 [lindex $indices 0]-1] + set after [string range $parsed_template [lindex $indices 1]+1 end] set key [string range $parsed_template [lindex $key 0] [lindex $key 1]]