anchor.diff:  (defmethod stream-text-margin ((stream standard-extended-output-stream))
     (with-slots (margin) stream
       (or margin
  -	(- (bounding-rectangle-width (or (pane-viewport stream)
  +        (- (bounding-rectangle-width (or (pane-viewport stream)
                                            stream))
  -	   (text-size stream "O")))))
  +           (text-size stream "O")))))
   
   (defmethod stream-line-height ((stream standard-extended-output-stream)
                                  &key (text-style nil))
     (+ (text-style-height (or text-style (medium-text-style (sheet-medium stream)))
  -			(sheet-medium stream))
  +                        (sheet-medium stream))
        (stream-vertical-spacing stream)))
   
   (defmethod stream-line-column ((stream standard-extended-output-stream))
  
positive.code: ;;; down. Using SUBSEQ does fix this interaction that's been here
  ;;; since 4/16/03 - Mikemac 12/6/2003
  (defmethod stream-write-string ((stream standard-extended-output-stream) string
  				&optional (start 0) end)
    (let ((seg-start start)
  	(end (or end (length string))))
      (with-cursor-off stream
       (loop for i from start below end do
         (when (char= #\Newline
  		    (char string i))
  	 (seos-write-string stream (subseq string seg-start i))
  	 (seos-write-newline stream)
  	 (setq seg-start (1+ i))))
       (seos-write-string stream (subseq string seg-start end)))))
  
  (defmethod stream-character-width ((stream standard-extended-output-stream) char
  				   &key (text-style nil))
    (with-sheet-medium (medium stream)
      (text-style-character-width (or text-style (medium-text-style medium))
                                  medium
                                  char)))
  
  (defmethod stream-string-width ((stream standard-extended-output-stream) string
  				&key (start 0) (end nil) (text-style nil))
    (with-sheet-medium (medium stream)
      (if (null text-style)
          (setq text-style (medium-text-style (sheet-medium stream))))
  
negative.code: ;;; Cursor-Mixin class
  (defclass cursor-mixin ()
    ((sheet :initarg :sheet
            :reader cursor-sheet)
     (x :initform 0 :initarg :x-position)
     (y :initform 0 :initarg :y-position)
     (width :initform 8)
  