   (let ((fap (ffap-guesser)))
     (anything 'anything-c-source-find-files
               (or (if (and fap (file-exists-p fap)) (expand-file-name fap) fap)
-                  (expand-file-name default-directory)) "Find Files or Url: " nil nil "*Anything Find Files*")))
+                  (expand-file-name default-directory))
+              "Find Files or Url: " nil nil "*Anything Find Files*")))
 
 
 ;;; Anything completion for copy, rename and symlink files from dired.

                  (replace-match (getenv "HOME") nil t anything-pattern)
                  anything-pattern)))
    (cond ((or (and (not (file-directory-p path)) (file-exists-p path))
               (string-match "^\\(http\\|https\\|ftp\\|mailto\\):/?/?.*" path))
           (list path))
          ((string= anything-pattern "")
           (directory-files "/" t))

                        (format "* %d Files" len)
                        (car files)))
         (source    (case action
                      ('copy     'anything-c-source-copy-files)
                      ('rename   'anything-c-source-rename-files)
                      ('symlink  'anything-c-source-symlink-files)
                      ('hardlink 'anything-c-source-hardlink-files)))
         (prompt-fm (case action
                      ('copy     "Copy %s to: ")
                      ('rename   "Rename %s to: ")
                      ('symlink  "Symlink %s to: ")
                      ('hardlink "Hardlink %s to: ")))
         (buffer    (case action
                      ('copy     "*Anything Copy Files*")
                      ('rename   "*Anything Rename Files*")
                      ('symlink  "*Anything Symlink Files*")
                      ('hardlink "*Anything Hardlink Files*"))))
    (anything source
              (or (dired-dwim-target-directory)
