anchor.diff:  				(#\} (if (zerop brace-level)
   					 (error "Unbalanced braces in BibTeX format string ~S" format-string)
   					 (decf brace-level))))))
  -			  (format-bibtex-name-component s tokens
  +			  (format-bibtex-name-component s string tokens
   							double-letter inter-token-string)))
   		       ((char= c #\{)
   			(incf brace-level)
  
positive.code: 		     (- *bbl-max-print-line* 1))))))))
  
  (defun bbl-terpri ()
    (princ *bbl-line-buffer* *bbl-output*)
    (terpri *bbl-output*)
    (setf (fill-pointer *bbl-line-buffer*) 0)
  
negative.code: 	      (princ (car token) stream))
  	     ((null (cdr tokens))	; last token
  	      (princ #\~ stream))
  	     ((not (enough-text-chars stream-string
  				      *bibtex-long-token-length*))
  	      (princ #\~ stream))
  	     (t
  	      (princ #\Space stream))))))
        (cond
  	(full
  	 (princ (cdr token) stream))
  	(t ;; FIXME: Handle special characters here (415)
  	 (princ (char (cdr token) 0) stream))))))  a
  
  (defun format-bibtex-name (stream format-string bibtex-name)
    (let ((string-output nil)
  