Resolved merge.

[factor.git] / basis / documents / documents.factor

diff --git a/basis/documents/documents.factor b/basis/documents/documents.factor
index 104dea6b98a4942076447b421b74e963d8655e26..cc2466053b8718f80b1c382990f863c796186435 100644 (file)
--- a/basis/documents/documents.factor
+++ b/basis/documents/documents.factor
@@ -86,7 +86,7 @@ CONSTANT: doc-start { 0 0 }
         ] [
             first swap length 1- + 0
         ] if
-    ] dip peek length + 2array ;
+    ] dip last length + 2array ;
 
 : prepend-first ( str seq -- )
     0 swap [ append ] change-nth ;
@@ -191,4 +191,4 @@ PRIVATE>
     [ undos>> ] [ redos>> ] [ undo-edit ] undo/redo ;
 
 : redo ( document -- )
-    [ redos>> ] [ undos>> ] [ redo-edit ] undo/redo ;
\ No newline at end of file
+    [ redos>> ] [ undos>> ] [ redo-edit ] undo/redo ;