           (progn
             ;; Don't look at mtimes unless we're told to. Otherwise,
             ;; rely on live modification checking/user attention.
-            (unless (eq straight-check-for-modifications 'at-startup)
+            (unless (or (eq straight-check-for-modifications 'at-startup)
+                        (and (eq straight-check-for-modifications
+                                 'live-with-find)
+                             straight--allow-find))
               (cl-return-from straight--package-might-be-modified-p))
             ;; This method should always be called from a transaction.
             ;; We'll get an error from `straight--transaction-exec' if

  (interactive (list (straight--select-package "Check package"
                                               'for-build
                                               'installed)))
  (straight-use-package (intern package)))

;;;###autoload
(defun straight-check-all ()

;;;; Stateful actions
;;;;; Live modification checking

(if (memq straight-check-for-modifications '(live live-with-find))
    (straight-live-modifications-mode +1)
  (straight-live-modifications-mode -1))

