diff --git a/WEditor.cabal b/WEditor.cabal
--- a/WEditor.cabal
+++ b/WEditor.cabal
@@ -1,5 +1,5 @@
 name:                WEditor
-version:             0.2.0.0
+version:             0.2.0.1
 synopsis:            Generic text-editor logic for use with fixed-width fonts.
 
 description:
diff --git a/WEditor/Document.hs b/WEditor/Document.hs
--- a/WEditor/Document.hs
+++ b/WEditor/Document.hs
@@ -276,7 +276,7 @@
 updateDocView :: ViewAction -> EditingDocument c -> EditingDocument c
 updateDocView _ da@(EditingDocument _ _ _ _ h _ _ _) | h <= 0 = da
 updateDocView FillView da@(EditingDocument bs e as w h k c p) = revised where
-  revised = EditingDocument bs e as w h (boundOffset h k2) c p
+  revised = EditingDocument bs e as w h (boundOffset h (min before k2)) c p
   before = paraLinesBefore da
   after  = paraLinesAfter  da
   k2 = if after >= h-k-1  -- The view is already full.