Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.105 -r1.189.2.106
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	29 Nov 2021 14:33:47 -0000	1.189.2.105
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	29 Nov 2021 16:56:03 -0000	1.189.2.106
@@ -3453,7 +3453,7 @@
             set sv [expr {$d_end + 1}]
         } elseif {[regexp {^a(\d+)$} $diff full m1]} {
             set d_end $m1
-            for {set i $sv} {$i < $m1} {incr i} {
+            for {set i $sv} {$i <= $m1} {incr i} {
                 append res "${split_by}[lindex $old_w $i]"
             }
             while {1} {