anchor.diff:                     cx (+ cy baseline)))))
   
   (defmethod stream-write-char ((stream standard-extended-output-stream) char)
  -  (let* ((cursor (stream-text-cursor stream))
  -	 (visible (cursor-visibility cursor))
  -	 (medium (sheet-medium stream))
  -	 (port (port stream))
  -	 (text-style (medium-text-style medium))
  +  (let* ((cursor       (stream-text-cursor stream))
  +	 (visible      (cursor-visibility cursor))
  +	 (medium       (sheet-medium stream))
  +	 (port         (port stream))
  +	 (text-style   (medium-text-style medium))
   	 (new-baseline (text-style-ascent text-style medium))
  -	 (new-height (text-style-height text-style medium))
  -	 (margin (stream-text-margin stream))
  -	 (view-height (port-mirror-height port stream)))
  +	 (new-height   (text-style-height text-style medium))
  +	 (margin       (stream-text-margin stream))
  +         (%view-height (bounding-rectangle-height
  +                        (or (pane-viewport stream)
  +                            stream)))
  +	 (view-height  (bounding-rectangle-height
  +                        stream)))
       (if visible
   	(setf (cursor-visibility cursor) nil))
       (with-slots (baseline height vspace) stream
  
positive.code: 	 :accessor stream-default-view)
     (baseline :initform 0
  	     :reader stream-baseline)
     (height :initform 0)
     )
    )
  
  (defmethod initialize-instance :after ((stream standard-extended-output-stream) &rest args)
    (declare (ignore args))
  
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))
  