anchor.diff:    (list object))
   		   
   
  -;; CLIM:OPEN-WINDOW-STREAM seems to be broken.
  -;; Less broken since I hacked on it, but still bad..
   (defun show-file (pathname)
  -  (let ( #+ignore(*standard-output* (open-window-stream :scroll-bars :both)) )
  +  (let ((*standard-output* (open-window-stream :scroll-bars :both)) )
       (with-open-file (in pathname)
         (loop for line = (read-line in nil)
   	while line
  
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: 			       :provide-output-destination-keyword t)
    ((object 'pathname :prompt "pathname"))
    (show-file object))
  
  (define-presentation-to-command-translator show-file
    (clim:pathname com-show-file filesystem-commands :gesture :select
  		 :pointer-documentation ((object stream)
  					 (format stream "Show ~A" object))
  		 :documentation ((stream) (format stream "Show File"))
  		 :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))
  
  (define-command (com-display-image :name t :command-table filesystem-commands
                                             :menu t)
  