anchor.diff:  
   (defun links-loc (url)
     (concatenate 'string (cache-loc url) "links"))
  +
  +(defun messages-loc (url)
  +  (concatenate 'string (cache-loc url) "messages"))
   
   (defun update-page (url &key force)
     (unless (and (is-fresh url) (not force))
  
positive.code:       (error "Couldn't find text extractor script."))
      (let ((process (external-program:start *text-extractor-script*
                                             (list (cache-loc url))
                                             :input :stream)))
        (write-line url (external-program:process-input-stream process))
        (close (external-program:process-input-stream process))
        index)))
  
negative.code:    #:update-page
     #:text-server
     #:grab-links
     #:grab-failed-message
     #:grab-messages))
  
  (in-package :wf/text-extract)
  
  