Index: openacs-4/packages/acs-templating/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/element-procs.tcl,v
diff -u -N -r1.32.2.2 -r1.32.2.3
--- openacs-4/packages/acs-templating/tcl/element-procs.tcl	5 Sep 2013 11:38:46 -0000	1.32.2.2
+++ openacs-4/packages/acs-templating/tcl/element-procs.tcl	29 Sep 2013 18:49:59 -0000	1.32.2.3
@@ -726,7 +726,7 @@
 
     upvar #$level formgroup:$i formgroup
     
-    set option [lindex $options [expr {$i - 1}]]
+    set option [lindex $options $i-1]
     set value [lindex $option 1]
 
     if { ![info exists values($value)] } {
Index: openacs-4/packages/acs-templating/tcl/paginator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/paginator-procs.tcl,v
diff -u -N -r1.19.2.2 -r1.19.2.3
--- openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	28 Sep 2013 19:14:24 -0000	1.19.2.2
+++ openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	29 Sep 2013 18:49:59 -0000	1.19.2.3
@@ -513,7 +513,7 @@
 
     set row(rownum) $rowcount
     set row(page) $page
-    set row(context) [lindex $context_ids [expr {$page - 1}]]
+    set row(context) [lindex $context_ids $page-1]
   }
 }
 
@@ -668,7 +668,7 @@
   if { [info exists properties(context_ids)] } {
     foreach elm { next_page previous_page next_group previous_group } {
       if { [exists_and_not_null info($elm)] } {
-        set info(${elm}_context) [lindex $properties(context_ids) [expr {$info($elm) -1}]]
+        set info(${elm}_context) [lindex $properties(context_ids) $info($elm)-1]
       }
     }
   }
Index: openacs-4/packages/acs-templating/tcl/tag-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-procs.tcl,v
diff -u -N -r1.18 -r1.18.2.1
--- openacs-4/packages/acs-templating/tcl/tag-procs.tcl	30 Mar 2013 17:53:58 -0000	1.18
+++ openacs-4/packages/acs-templating/tcl/tag-procs.tcl	29 Sep 2013 18:49:59 -0000	1.18.2.1
@@ -151,7 +151,7 @@
 
     between { 
       set expr1 "$arg1 >= \"[lindex $args $i]\""
-      set expr2 "$arg1 <= \"[lindex $args [expr {$i + 1}]]\""
+      set expr2 "$arg1 <= \"[lindex $args $i+1]\""
       append condition "($expr1 && $expr2)" 
       set next [expr {$i + 2}]
     }
Index: openacs-4/packages/acs-templating/tcl/wizard-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/wizard-procs.tcl,v
diff -u -N -r1.10 -r1.10.10.1
--- openacs-4/packages/acs-templating/tcl/wizard-procs.tcl	10 Jan 2007 21:22:12 -0000	1.10
+++ openacs-4/packages/acs-templating/tcl/wizard-procs.tcl	29 Sep 2013 18:49:59 -0000	1.10.10.1
@@ -566,7 +566,7 @@
 
     } elseif { [ns_queryexists wizard_submit_back] } {
 
-	set last_id [lindex $steps [expr {$current_index - 2}]]
+	set last_id [lindex $steps $current_index-2]
 	template::forward [get_forward_url $last_id] $cache_p $persistent_p $excluded_vars
 
     } elseif { [ns_queryexists wizard_submit_repeat] } {
Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -N -r1.50.2.1 -r1.50.2.2
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	17 Sep 2013 17:49:23 -0000	1.50.2.1
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	29 Sep 2013 18:51:10 -0000	1.50.2.2
@@ -1182,7 +1182,7 @@
     set lines [t1 children]
     for {set i 0} {$i < [llength $lines]-1} {incr i} {
       set e [lindex $lines $i]
-      set n [lindex $lines [expr {$i+1}]]
+      set n [lindex $lines $i+1]
       set revision_id [$e set payload(revision_id)]
       set compare_revision_id [$n set payload(revision_id)]
       $e set diff.href [export_vars -base $base {{m diff} compare_revision_id revision_id}]