anchor.diff:  
   (defun render-mode-line ()
     (let* ((buffer (current-buffer *editor*))
  +         (minibuffer-rows (if (eql buffer *minibuffer*)
  +                            (1+ (truncate (line-number (last-line buffer)) 10000))
  +                            1))
            (modeline-buffer (get-buffer-create " *Modeline*"))
            (modeline-string (buffer-property buffer 'modeline)))
       (insert modeline-buffer
  
positive.code:             (when line
                (render-display-line line
                  (lambda (l) (blit-display-line l (1+ (window-rows)))))))))
              (render-mode-line)
            ;; Prune the cache.
            (setf (display-line-cache *editor*) (subseq (display-line-cache *editor*) 0 (* (window-rows) 4))))
          t)
  
negative.code:          *package* ; TODO: uncomment above when buffer-current-package is faster
           ))
      (render-display-line (first-line modeline-buffer)
         (lambda (l) (blit-display-line l (- (window-rows) (1- minibuffer-rows)))) t)
      (kill-buffer modeline-buffer)))
  
  (defun redisplay ()
  