diff --git a/editor/editor.lisp b/editor/editor.lisp
index 88903d2..cfd43c1 100644
--- a/editor/editor.lisp
+++ b/editor/editor.lisp
@@ -385,6 +385,8 @@ serial connection the editor normally runs under.")
                     :start1 start)
            (delete-line right-line)
            (let ((view (current-view *editor*)))
+             (when (eql left-line (prev-line (top-line view)))
+               (get-line-into-view left-line view))
              (update-view-bottom view)
              (cond ((and (line-in-view left-line view)
                          (< (1+ (view-line-number view left-line))
@@ -397,6 +399,7 @@ serial connection the editor normally runs under.")
                     (unless (null (bottom-line view))
                       (redisplay-view-from-line view (bottom-line view))))
                    (t
+                    (get-line-into-view left-line view)
                     (redisplay-view-from-line (current-view *editor*) left-line))))
            (setf (cursor-line (cursor *editor*)) left-line
                  (cursor-column (cursor *editor*)) start)