anchor.diff:  	     ((symbolp style) (fdefinition style))
   	     ((stringp style) (find-bibtex-style style))
   	     (t (error "Bad :STYLE argument: ~S" style)))))
  -      (with-open-file (bbl-output (make-pathname :type "BBL" :case :common
  +      (with-open-file (bbl-output (make-pathname :type "bbl" ;;:case :common
   						 :defaults file-stem)
  -				  :direction :output)
  +				  :direction :output
  +				  :if-exists :supersede)
   	(with-bbl-output (bbl-output)
  -	  (funcall style-function))))))
  +	  (funcall style-function))))
  +    (values *history* *err-count*)))
   
   ;;;;
   
  
positive.code:        (cdr it))
        ((and *allow-load-lisp-bibtex-style*
  	    (setq it (kpathsea:find-file
  		      (make-pathname :type "LBST" :case :common
  				     :defaults style))))
         (lisp-bibtex-style it))
        ((setq it (kpathsea:find-file
  		 (make-pathname :type "BST" :case :common
  				:defaults style)))
         (interpreted-bibtex-style it))
        (t (error "Could not find a BibTeX style named `~A'." style)))))
  
negative.code: 	(*err-count* 0)
  	(*bib-style* nil)
  	(*bst-functions* (builtin-bst-functions)))	
      (read-aux-file (make-pathname :type "aux" ;;:case :common
  				  :defaults file-stem))
      (let ((style-function
  	   (cond
  