Index: openacs-4/packages/acs-admin/www/apm/packages-install.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/packages-install.tcl,v
diff -u -r1.22.4.2 -r1.22.4.3
--- openacs-4/packages/acs-admin/www/apm/packages-install.tcl	28 Sep 2013 18:17:36 -0000	1.22.4.2
+++ openacs-4/packages/acs-admin/www/apm/packages-install.tcl	1 Oct 2013 08:47:20 -0000	1.22.4.3
@@ -89,12 +89,12 @@
 
 <script type="text/javascript">
 function uncheckAll() {
-    for (var i = 0; i < [expr {[llength $spec_files] }]; ++i)
+    for (var i = 0; i < [llength $spec_files]; ++i)
         document.forms\[0\].elements\[i\].checked = false;
     this.href='';
 }
 function checkAll() {
-    for (var i = 0; i < [expr {[llength $spec_files] }]; ++i)
+    for (var i = 0; i < [llength $spec_files]; ++i)
         document.forms\[0\].elements\[i\].checked = true;
     this.href='';
 }
Index: openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl,v
diff -u -r1.11.2.4 -r1.11.2.5
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	9 Sep 2013 16:44:18 -0000	1.11.2.4
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	1 Oct 2013 08:47:20 -0000	1.11.2.5
@@ -147,7 +147,7 @@
             # execute drop statements until we reach position $i+1
             #  This position represents the operation on which we failed, and thus
             #  is not executed
-            for { set inner [expr {[llength $plsql_drop] - 1}] } { $inner > [expr {$i + 1}] } { set inner [expr {$inner - 1}] } {
+            for { set inner [expr {[llength $plsql_drop] - 1}] } { $inner > $i + 1 } { set inner [expr {$inner - 1}] } {
                 set drop_pair [lindex $plsql_drop $inner]
                 if { [catch {eval [lindex $drop_pair 2] [lindex $drop_pair 0] [lindex $drop_pair 1]} err_msg_2] } {
                     append err_msg "\nAdditional error while trying to roll back: $err_msg_2"
Index: openacs-4/packages/acs-subsite/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs.tcl,v
diff -u -r1.25 -r1.25.4.1
--- openacs-4/packages/acs-subsite/tcl/package-procs.tcl	17 Oct 2010 21:06:09 -0000	1.25
+++ openacs-4/packages/acs-subsite/tcl/package-procs.tcl	1 Oct 2013 08:47:20 -0000	1.25.4.1
@@ -544,7 +544,7 @@
     }
 
     set pk_formatted [list]
-    for { set i 0 } { $i < [expr {[llength $primary_keys] - 1}] } { incr i } {
+    for { set i 0 } { $i < [llength $primary_keys] - 1 } { incr i } {
 	lappend pk_formatted "[lindex $primary_keys $i] = [lindex $primary_keys [expr {$i +1}]]"
     }
     return "SELECT [string tolower [join $columns ",\n       "]]
Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.57.8.1 -r1.57.8.2
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	27 Aug 2013 11:33:14 -0000	1.57.8.1
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	1 Oct 2013 08:47:20 -0000	1.57.8.2
@@ -1354,7 +1354,7 @@
         if 0 {
             set num_pages 11
             set pages [list]
-            for { set i [expr {$current_page - $num_pages}] } { $i < [expr {$current_page + $num_pages}] } { incr i } {
+            for { set i [expr {$current_page - $num_pages}] } { $i < $current_page + $num_pages } { incr i } {
                 if { $i > 0 && $i <= $paginator(page_count) } {
                     lappend pages $i
                 }