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.12.2.4 -r1.12.2.5
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	14 Mar 2016 21:38:25 -0000	1.12.2.4
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	27 Nov 2016 12:19:35 -0000	1.12.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 > $i + 1 } { set inner [expr {$inner - 1}] } {
+            for { set inner [expr {[llength $plsql_drop] - 1}] } { $inner > $i + 1 } { incr inner -1 } {
                 set drop_cmd [lindex $plsql_drop $inner]
                 if { [catch $drop_cmd err_msg_2] } {
                     append err_msg "\nAdditional error while trying to roll back: $err_msg_2"