          (watcher-dir (expand-file-name "watcher" straight-dir))
          (version-from (expand-file-name "version" watcher-dir))
          (version-to (straight--watcher-file "version")))
-    (not (straight--check-call "diff" "-q" version-from version-to))))
+    (not (straight--process-run-p "diff" "-q" version-from version-to))))
 
 (cl-defun straight-watcher-start ()
   "Start the filesystem watcher, killing any previous instance.

                                  (if (file-directory-p d) d
                                    default-directory))
                              default-directory))
         (branch-list (cdr (straight--call "git" "branch" "-r"))))
    (if (string-match "^.*origin/HEAD -> origin/\\(.*$\\)" branch-list)
        (match-string 1 branch-list)
      ;; git doesn't always have the default remote branch name

(defun straight--determine-find-flavor ()
  "Determine the best default value of `straight-find-flavor'.
This uses -newermt if possible, and -newer otherwise."
  (if (straight--process-run-p
       straight-find-executable
       "/dev/null" "-newermt" "2018-01-01 12:00:00")
      `(newermt)
