         (make-symbolic-link repo-file build-file)))))
 
 (defun straight--autoload-file (package-name)
-  (format "%S-autoloads.el" package-name))
+  (format "%s-autoloads.el" package-name))
 
 (defun straight--generate-package-autoloads (build-recipe)
   (let* ((name (plist-get build-recipe :name))

         (mtime (gethash name straight--cache)))
    (or (not mtime)
        (with-temp-buffer
          (let ((default-directory (straight--dir
                                    "repos" (symbol-name name))))
            (call-process
             "find" nil '(t t) nil
             "." "-name" ".git" "-o" "-newermt" mtime "-print")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; Low-level API

(defun straight--dir (&rest segments)
  (apply 'concat user-emacs-directory
         (mapcar (lambda (segment)
                   (concat segment "/"))
                 (cons "straight" segments))))

(defun straight--file (&rest segments)
