anchor.diff:    ((pathname 'pathname  :prompt "pathname"))
     (clim-sys:make-process (lambda () (ed pathname))))
   
  -;; Leave this translator disabled for now, the automagic translator will now produce
  -;; com-edit-file where there is not a more specific handler for a text mime type.
  -#+IGNORE
   (define-presentation-to-command-translator edit-file
     (clim:pathname com-edit-file filesystem-commands :gesture :select
   		 :pointer-documentation ((object stream)
  
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: 		 :tester ((object)
  			  (and (not (wild-pathname-p object))
                                 (probe-file object)
                                 (pathname-name object)
                                 (let ((mime-type (pathname-mime-type object)))
                                   (and mime-type (subtypep mime-type 'text))))))
    (object)
    (list object))
  
  