anchor.diff:     #:update-page
      #:text-server
      #:grab-links
  -   #:grab-failed-message))
  +   #:grab-failed-message
  +   #:grab-messages))
   
   (in-package :wf/text-extract)
   
  
positive.code:   (unless (probe-file (failure-loc url))
      (error "No failure message found"))
    (read-file-into-string (failure-loc url)))
  
  (defun index-file-name ()
    (make-pathname :directory *cache-path* :name "urlindex.inf"))
  
negative.code:       (error "Couldn't find text extractor script."))
      (let ((process (external-program:start *text-extractor-script*
                                             (list (cache-loc url))
                                             :input :stream
                                             :error (messages-loc url))))
        (write-line url (external-program:process-input-stream process))
        (close (external-program:process-input-stream process))
        index)))
  