                 ;; Don't create duplicate entries in the find(1)
                 ;; command for this local repository.
                 (puthash local-repo t repos)))))))
-    ;; The preamble to the find(1) command, which comes before the
-    ;; repository-specific subparts (see above).
-    (setq args (append (list "." "-name" ".git" "-prune")
-                       args))
+    ;; Construct the final find(1) command.
+    (setq args (append
+                args-paths
+                (list "-name" ".git" "-prune")
+                args-primaries))
     (with-temp-buffer
       (let ((default-directory (straight--repos-dir)))
         (let ((return (apply #'call-process "find" nil '(t t) nil args)))

                         (setq mtime-or-file (straight--make-mtime mtime)))
                        (_ (error "Unexpected `straight-find-flavor': %S"
                                  straight-find-flavor)))
                      (setq args (append (list "-o"
                                               "-path"
                                               (format "./%s/*" local-repo)
                                               newer-or-newermt
                                               mtime-or-file
                                               "-print")
                                         args)))
                  ;; If no mtime is specified, it means the package
                  ;; definitely needs to be (re)built. Probably there
                  ;; was an error and we couldn't finish building the

        (maphash (lambda (local-repo _)
                   (goto-char (point-min))
                   (when (re-search-forward
                          (format "^%s/"
                                  (regexp-quote local-repo))
                          nil 'noerror)
                     (puthash
                      local-repo t straight--cached-package-modifications)))
