Index: openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl,v
diff -u -N -r1.3 -r1.3.8.1
--- openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl	31 Oct 2008 08:50:42 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl	12 Oct 2013 13:55:18 -0000	1.3.8.1
@@ -37,10 +37,9 @@
     foreach chunk $result {
 	ns_log notice "\n$chunk\n"
         set action [lindex $chunk 0]
-        set old_index1 [lindex [lindex $chunk 1] 0]
-        set old_index2 [lindex [lindex $chunk 1] 1]
-        set new_index1 [lindex [lindex $chunk 2] 0]
-        set new_index2 [lindex [lindex $chunk 2] 1]
+
+	lassign [lindex $chunk 1] old_index1 old_index2
+	lassign [lindex $chunk 2] new_index1 new_index2
         
         while {$i < $old_index1} {
             lappend output [lindex $old $i]
@@ -180,10 +179,10 @@
     foreach chunk $result {
 
         set action [lindex $chunk 0]
-        set old_index1 [lindex [lindex $chunk 1] 0]
-        set old_index2 [lindex [lindex $chunk 1] 1]
-        set new_index1 [lindex [lindex $chunk 2] 0]
-        set new_index2 [lindex [lindex $chunk 2] 1]
+
+	lassign [lindex $chunk 1] old_index1 old_index2
+	lassign [lindex $chunk 2] new_index1 new_index2
+
         while {$i < $old_index1} {
             lappend output [lindex $old_list $i]
             incr i