anchor.diff:  	      (princ (car token) stream))
   	     ((null (cdr tokens))	; last token
   	      (princ #\~ stream))
  -	     ((and (= token-index 1)
  -		   prev-token-short)
  +	     ((not (enough-text-chars stream-string
  +				      *bibtex-long-token-length*))
   	      (princ #\~ stream))
   	     (t
   	      (princ #\Space stream))))))
         (cond
   	(full
  -	 (princ (cdr token) stream)
  -	 (setq token-short
  -	       (not (enough-text-chars (cdr token)
  -				       *bibtex-long-token-length*))))
  +	 (princ (cdr token) stream))
   	(t ;; FIXME: Handle special characters here (415)
  -	 (princ (char (cdr token) 0) stream)
  -	 (setq token-short t))))))  
  +	 (princ (char (cdr token) 0) stream))))))  a
   
   (defun format-bibtex-name (stream format-string bibtex-name)
     (let ((string-output nil)
  
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:     (do-tex-tokens (token string)
        (etypecase token
  	(character
  	 (cond ((alphanumericp token)
  		(princ token s))
  	       ((or (sepchar-p token)
  		    (whitespace-p token))
  		(princ #\Space s))))
  	(string
  	 (let ((purification (assoc token *foreign-character-purifications* :test 'string=)))
  	   (when purification
  