anchor.diff:      (load-index))
     (montezuma:field-data
      (montezuma:document-field
  -    (montezuma:get-document *index* (montezuma:make-term "id" (format nil "~A" number)))
  +    (montezuma:get-document *index* (montezuma:make-term "number" (format nil "~A" number)))
       "contents")))
   
   
  
positive.code: 	  (format T "~&~5,2F  ~A  ~A  ~10A  ~15A  ~A"
  		  score
  		  (get-field "displaydate")
  		  (get-field "id")
  		  (get-field "channel")
  		  (get-field "user")
  		  (get-field "title")))))))
  
negative.code:   (let ((doc (make-instance 'montezuma:document)))
      ;; We want to be able to search on the ID field, but it should not
      ;; be tokenized.
      (montezuma:add-field doc (montezuma:make-field "number" (format nil "~S" (paste-number paste))
  						   :index :untokenized))
      ;; The USER field is stored and tokenized.
      (montezuma:add-field doc (montezuma:make-field "user" (paste-user paste)
  