anchor.diff:    (show-line pane :normal "Last " :huge "line " :normal "bam bam")
   
     (terpri pane)
  -  (let ((y (nth-value 1 (stream-cursor-position pane))))
  -   (draw-line* pane (climi::stream-effective-left-margin pane)
  -               y
  -               (climi::stream-effective-right-margin pane)
  -               y
  -               :ink +blue+ :line-dashes t))
  +  (with-bounding-rectangle* (x1 y1 x2 y2) (clime:stream-page-region pane)
  +    (declare (ignore y1 y2))
  +    (let ((y (nth-value 1 (stream-cursor-position pane))))
  +      (draw-line* pane x1 y x2 y :ink +blue+ :line-dashes t)))
     (terpri pane)
     (format pane "All lines should have text aligned on the same baseline. Likely failures:
   
  
positive.code:   (setf (stream-end-of-page-action *standard-output*) :wrap))
  
  ;(run-frame-top-level (make-application-frame 'seos-baseline))
  
  
negative.code: 
  See the introduction in \"15.3 The Text Cursor\"."
            (stream-end-of-line-action pane))
    (draw-design pane (clime:stream-page-region pane)
                 :ink +red+ :line-dashes t :filled nil))
  
  (define-seos-baseline-command (com-redisplay :keystroke #\space) ()
    (schedule-event *standard-output*
  