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       "]]