anchor.diff:  		      (if suffix
   			  (format nil "~A.~A" (pathname-name path) suffix)
   			  (format nil "~A" (pathname-name path))))))
  +
       ;;pad the filename to create a 'background'
       (let* ((nstring (if dirp (dname) (fname)))
  -	   (rem (max 0 (- *fbar-width* (length nstring) tab))))
  +           (rem (max 0 (- *fbar-width* (lem:string-width nstring) tab))))
         (setf nstring (concatenate 'string
   				 (spaces tab)
   				 nstring
  
positive.code:                            :buffer *fbar-buffer*
                             :x 0
                             :y 0
                             :width *fbar-width*
                             :height (1- (display-height))
                             :use-modeline-p nil))
        
  
negative.code:   
    (define-command fbar-on () ()
      (unless *fbar-window*
        (fbar)
        (setf old-window (current-window)
  	    old-buffer (current-buffer)
  	    old-point (copy-point  (current-point) :temporary  ))
  