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 -r1.3 -r1.4
--- 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	27 Oct 2014 16:40:09 -0000	1.4
@@ -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]
@@ -134,7 +133,7 @@
 		}
 	    }
 	    if {[llength $pretag2]} {
-		eval "lappend old_list $pretag2"
+		lappend old_list {*}$pretag2
 	    }
 	}
 	if {$fulltag ne ""} {
@@ -160,7 +159,7 @@
 		}
 	    }
 	    if {[llength $pretag2]} {
-		eval "lappend new_list $pretag2"
+		lappend new_list {*}$pretag2
 	    }
 	}
 	if {$fulltag ne ""} {
@@ -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
@@ -256,4 +255,4 @@
         "</@a@>" </span>} $output]
 
     return "$output"
-}
\ No newline at end of file
+}