anchor.diff:  		 :tester ((object)
   			  (and (not (wild-pathname-p object))
                                  (probe-file object)
  -                               (pathname-name object))))
  +                               (pathname-name object)
  +                               (let ((mime-type (pathname-mime-type object)))
  +                                 (and mime-type (subtypep mime-type 'text))))))
     (object)
     (list object))
   
  
positive.code:              (mv-or
                (when mime-type (mime-type-to-command mime-type pathname))
                (when command
                  (values command doc pointer-doc))
                (when (and mime-type (subtypep mime-type 'text))
                  (values `(com-edit-file ,pathname)
                          "Edit File"
                          (format nil "Edit ~A" pathname))) ))))))
  
  (define-presentation-translator automagic-pathname-translator
    (clim:pathname clim:command filesystem-commands
  
negative.code:   (list object))
  		   
  
  (defun show-file (pathname)
    (let ((*standard-output* (open-window-stream :scroll-bars :both)) )
      (with-open-file (in pathname)
        (loop for line = (read-line in nil)
  	while line
  