anchor.diff:  	;; Now deal with the cursor
   	(line-update-cursor line stream)
   	(when cursor
  -	  (setf (cursor-visibility cursor) t))))))
  +	  (setf (cursor-visibility cursor) :on))))))
   
   (defun maybe-scroll (cursor)
     (let ((pane (cursor-sheet cursor))
  
positive.code: (defmethod redisplay-line ((line screen-line) stream)
    (let* ((medium (sheet-medium stream))
  	 (style (text-style (output-record-parent line))))
      (with-slots (current-contents ascent descent baseline cursor buffer-line)
  	line
        (multiple-value-bind (unchanged
  
negative.code: 	   ((medium-transformation medium)
              +identity-transformation+) ; Is it necessary?
             )
        (when (and cursor (cursor-state cursor))
  	(climi::display-cursor cursor :erase))
        (multiple-value-bind (x y) (output-record-position record)
  	(declare (ignore y))
  	(draw-text* stream (current-contents record)
                      x (slot-value record 'baseline)))
        (when (and cursor (cursor-state cursor))
  	(climi::flip-screen-cursor cursor)))))
  
  (defmethod output-record-refined-position-test ((record screen-line) x y)
  