Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.50.2.1 -r1.50.2.2
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	17 Sep 2013 17:49:23 -0000	1.50.2.1
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	29 Sep 2013 18:51:10 -0000	1.50.2.2
@@ -1182,7 +1182,7 @@
     set lines [t1 children]
     for {set i 0} {$i < [llength $lines]-1} {incr i} {
       set e [lindex $lines $i]
-      set n [lindex $lines [expr {$i+1}]]
+      set n [lindex $lines $i+1]
       set revision_id [$e set payload(revision_id)]
       set compare_revision_id [$n set payload(revision_id)]
       $e set diff.href [export_vars -base $base {{m diff} compare_revision_id revision_id}]