ui.gadgets.editors: fix off-by-one.

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index f7db62e93b718b46f9af8bdc9f448925184cc4de..5248bf291a8b7c1cddc9c2997d083f50688972fc 100644 (file)
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@@ -577,7 +577,7 @@ TUPLE: multiline-editor < editor ;
     dup editor-caret first page-elt ;
 
 : next-page-elt ( editor -- editor element )
-    dup [ control-value length ] [ editor-caret first ] bi - page-elt ;
+    dup [ control-value length 1 - ] [ editor-caret first ] bi - page-elt ;
 
 PRIVATE>