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"