diff --git a/editor/editor.lisp b/editor/editor.lisp
index be53032..6503fb8 100644
--- a/editor/editor.lisp
+++ b/editor/editor.lisp
@@ -398,7 +398,7 @@ serial connection the editor normally runs under.")
                     (scroll-screen-up)
                     (set-scrolling-region)
                     (unless (null (bottom-line view))
-                      (redisplay-view-from-line view (bottom-line view))))
+                      (redisplay-line (bottom-line view))))
                    (t
                     (get-line-into-view left-line view)
                     (redisplay-view-from-line (current-view *editor*) left-line))))