anchor.diff:                                      (let* ((font-path-relative (cdr (assoc (list family face) *families/faces*
                                                                              :test #'equal)))
                                              (font-path (namestring (merge-pathnames font-path-relative *freetype-font-path*))))
  +                                      (unless (and font-path (probe-file font-path))
  +                                        (error 'missing-font :filename font-path))
  +                                      #+NIL
                                         (if (and font-path (probe-file font-path))
                                             (make-free-type-face display font-path size)
  -                                          (call-next-method)))))))
  +                                          (call-next-method))
  +                                      (make-free-type-face display font-path size))))))
                          (t
  -                        (call-next-method)))))))      
  +                        (call-next-method)))))))
         (cdr (if (eq (car lookaside) text-style)
                  lookaside
  -               (setf lookaside (cons text-style (f))))))))
  +               (setf lookaside (cons text-style (invoke-with-freetype-path-restart #'f))))))))
   
   (defmethod clim-clx::text-style-to-X-font ((port clim-clx::clx-port) text-style)
     (error "You lost: ~S." text-style))
  
positive.code: 
  (defparameter *free-type-face-hash* (make-hash-table :test #'equal))
  
  (let (lookaside)
    (defmethod clim-clx::text-style-to-X-font :around ((port clim-clx::clx-port) (text-style standard-text-style))
      (flet ((f ()
  
negative.code:   (or (pop (display-free-glyph-ids display))
        (incf (display-free-glyph-id-counter display))))
  
  (defparameter *font-hash*
    (make-hash-table :test #'equalp))
  
  (defstruct (glyph-info (:constructor glyph-info (id width height left right top)))
  