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

              (unless (gethash local-repo repos)
                (if mtime
                    ;; The basic idea of the find(1) command here is
                    ;; that we search all the local repositories, and
                    ;; then the actual primaries evaluated are a
                    ;; disjunction that first prevents any .git
                    ;; directories from being traversed and then
                    ;; checks for any files that are in a given local
                    ;; repository *and* have a new enough mtime.
                    (let ((newer-or-newermt nil)
                          (mtime-or-file nil))
                      (pcase straight-find-flavor
