anchor.diff:  	 ((eq char #\Newline)
   	  (setq cx 0
   		cy (+ cy height vspace))
  -	  (when (> (+ cy height vspace) view-height)
  +	  (when (> (+ cy height) view-height)
   	    (ecase (stream-end-of-page-action stream)
   	      (:scroll
  -	       (scroll-vertical stream (+ height vspace)))
  +               (let ((jump 0))
  +                 (with-slots (seos-current-width seos-current-height) stream
  +                   (setf seos-current-width  (max (bounding-rectangle-width stream))
  +                         seos-current-height (max (+ cy height)))
  +                   (change-space-requirements stream
  +                                              :width seos-current-width
  +                                              :height seos-current-height))
  +                 )
  +	       ;;(scroll-vertical stream (+ height vspace))
  +               )
   	      (:wrap
   	       (setq cy 0))
   	      (:allow
   	       )))
  +          (scroll-extent stream 0 (max 0 (- (+ cy height) %view-height)))
   	  (draw-rectangle* medium cx cy (+ margin 4) (+ cy height)
   			   :ink +background-ink+
   			   :filled t)
  
positive.code: 
  ;;;
  
  (defmethod repaint-sheet :around ((stream standard-extended-output-stream)
  				  region)
    (declare (ignorable region))
    (let ((cursor (stream-text-cursor stream)))
      (if (cursor-visibility cursor)
  
negative.code: (defmethod stream-text-margin ((stream standard-extended-output-stream))
    (with-slots (margin) stream
      (or margin
  	(- (bounding-rectangle-width (or (pane-viewport stream)
                                           stream))
  	   6))))
  
  (defmethod stream-line-height ((stream standard-extended-output-stream) &key (text-style nil))
  