Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -r1.86.2.5 -r1.86.2.6
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	17 Sep 2013 12:01:10 -0000	1.86.2.5
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	29 Sep 2013 19:23:18 -0000	1.86.2.6
@@ -837,8 +837,8 @@
     set all_indices [regexp -inline -indices -all -- {(?:^|[^'])(')(?:[^']|'')+(')(?=$|[^'])} $sql]
 
     for {set i 0} { $i < [llength $all_indices] } { incr i 3 } {
-        lappend quote_indices [lindex [lindex $all_indices [expr {$i + 1}]] 0]
-        lappend quote_indices [lindex [lindex $all_indices [expr {$i + 2}]] 0]
+        lappend quote_indices [lindex [lindex $all_indices $i+1] 0]
+        lappend quote_indices [lindex [lindex $all_indices $i+2] 0]
     }
 
     return $quote_indices