   (interactive (list (straight--select-package "Check package"
                                                'for-build
                                                'installed)))
-  (straight-use-package (intern package)))
+  (let ((straight--allow-find t))
+    (straight-use-package (intern package))))
 
 ;;;###autoload
 (defun straight-check-all ()

  (setq straight--eagerly-checked-packages nil)
  (setq straight--live-modified-repos nil)
  (setq straight--build-cache-text nil)
  (when (eq straight-check-for-modifications 'live)
    (setq straight--live-modified-repos
          (condition-case _ (straight--directory-files
                             (straight--modified-dir))

;;;; 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))

