anchor.diff:  		      (let ((entry (gethash key *bib-database*)))
   			(when entry	; we will issue a warning
   					; for non-existing keys later 
  -			  (let ((crossref (gethash "CROSSREF" entry)))
  +			  (let ((crossref (bib-entry-ref "CROSSREF" entry)))
   			    (when (and crossref
   				       (not (member crossref cite-keys
   						    :test 'string-equal)))
  
positive.code: 	(neighbors-hash (make-hash-table :test 'equalp)))
      ;; Compute the neighbors (symmetric)
      (loop for anchor being each hash-key in *bib-database* using (hash-value entry)
         do (let* ((keys-string (gethash "EQUIVALENT-ENTRIES" entry))
  		 (new-equivalent-keys (and keys-string
  					   (parse-equivalent-entries-string keys-string))))
  ;; 	    (when new-equivalent-keys
  
negative.code:   (format stream "~&@~A{~A"
  	  (bib-entry-type entry)
  	  (bib-entry-cite-key entry))
    (loop for field being each hash-key in (bib-entry-dict entry)
  	and value being each hash-value in (bib-entry-dict entry)
  	do (format stream ",~%  ~A = {~A}" field value))
    (format stream "~%}~%"))
  
  