anchor.diff:      (unless file-stem
         (error "Need exactly one file argument"))
       (format *error-output*
  -	    "This is CL-BibTeX, Version ~A" bibtex-compiler::+version+)
  +	    "This is CL-BibTeX, Version ~A~%" bibtex-compiler::+version+)
       (bibtex-compiler:bibtex file-stem)))
   
   (defun emulate-bibtex (argv)
     ;;(princ "bar") (terpri)
     (let ((*gc-verbose* nil))
  -    (handler-case (do-emulate-bibtex argv)
  -      (error (condition)
  -	(format *error-output* "~&bibtex: ~A~%"
  -		condition)
  -	(format *error-output* "~&Try `bibtex --help' for more information.~%")
  -	(unix:unix-exit 1)))))
  +    (multiple-value-bind (history err-count)
  +	(handler-case (do-emulate-bibtex argv)
  +	  (error (condition)
  +	    (format *error-output* "~&bibtex: ~A~%"
  +		    condition)
  +	    (format *error-output* "~&Try `bibtex --help' for more information.~%")
  +	    (port:quit 4)))
  +      (port:quit history))))
   
  
positive.code: ;; Copyright 2001, 2002 Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de>
  ;;
  ;; This code is free software; you can redistribute it and/or
  ;; modify it under the terms of version 2.1 of the GNU Lesser 
  
negative.code: ;; with names and copyright holders altered accordingly.
  
  
  (in-package :bibtex-program)
  
  ;;; The emulation of the bibtex program
  
  