anchor.diff:                                     (elt bounds 0) (elt bounds 1))
                      (progn
                        (say "Excerpt not found")
  -                     (@ textdata text)))
  -               (@ textdata text))))
  +                     (@ textdata text))))
  +             (@ textdata text)))
   
         (def-component message
             (psx (:span (prop message))))
  
positive.code:                          (create :type :edit
                                   :data (create :excerpt excerpt
                                                 'excerpt-offset offset))))))
            (say ev))
          component-did-mount
          (lambda ()
            (chain this (set-selection-from-prop)))
          component-did-update
          (lambda ()
            (chain this (set-selection-from-prop)))
          set-selection-from-prop
          (lambda ()
            (say "in set-sel...")
            (say component-this-ref)
            (chain window (get-selection) (remove-all-ranges))
            (when (not-empty (prop excerpt))
              (say "hear")
              (let ((elem (@ component-this-ref sample-element))
                    (bounds
                       (find-excerpt-start/end
                        (prop textdata) (prop excerpt)
                        (or (prop excerpt-offset) 0)))
                    (range (new -range)))
                  (if bounds
                      (progn
                        (chain range (set-start elem (elt bounds 0)))
                        (chain range (set-end elem (elt bounds 1)))
                        (chain window (get-selection) (add-range range)))
                      (say "Excerpt not found"))))))
  
        ;;FIXME: Find a way to make this not pound the server per keystroke.
        (def-component text-sample
  
negative.code:        (defun hilite-a-slice (text start end)
           (list
            (chain text (slice 0 start))
            (psx (:span :class "hilited" :key 1
                        :style (create 'background-color "orange")
                        (chain text (slice start end))))
            (chain text (slice end))))
  
         (defun hilite-excerpt (textdata excerpt offset)
           (say "here")
           (if (not-empty excerpt)
               (let ((bounds
                      (find-excerpt-start/end textdata excerpt (or offset 0))))
  