anchor.diff:                                     (minibuf-read-file "Dired: "
                                                         (buffer-directory)
                                                         (buffer-directory)))))
  -  (dired-internal dirname))
  +  (dired-internal dirname)
  +  (goto-start-line))
   
   (defun get-file ()
     (let* ((point (get-bvar :start-point))
  
positive.code:                                to-pathname))
               to-pathname)))
      (when (subdirectory-p to-pathname from-pathname)
        (error "Cannot copy `~a' into its subdirectory `~a'"
               from-pathname to-pathname))
      (multiple-value-bind (to-dir-pathname made-directory-p)
          (ensure-directories-exist to-dir-pathname)
        (assert made-directory-p)
  
negative.code: 
  (defun select-file (open-file-fn)
    (let ((pathname (get-file)))
      (when pathname
        (cond ((cl-fad:directory-exists-p pathname)
               (dired-internal pathname))
              (pathname
               (funcall open-file-fn (namestring pathname)))))))
  
  (define-key *dired-mode-keymap* (kbd "C-m") 'dired-find-file)
  (define-command dired-find-file () ()
  