                 (or
                  (null unpushed-recipes)
                  (straight-are-you-sure
-                  (format (concat "The following repositories were not pushed:"
+                  (format (concat "The following packages were not pushed:"
                                   "\n\n  %s\n\nReally write lockfiles?")
                           (string-join
                            (mapcar (lambda (recipe)
-                                     (file-name-nondirectory
-                                      (directory-file-name
-                                       (plist-get recipe :local-repo))))
+                                     (plist-get recipe :local-repo))
                                    unpushed-recipes)
                            ", ")))))))
     (let ((versions-alist (straight--get-versions)))

    (make-directory (straight--repos-dir) 'parents)
    (straight--with-progress
        (concat cause (when cause straight-arrow)
                (format "Cloning %s"
                        (file-name-nondirectory
                         (directory-file-name local-repo)))
                ;; If this `member' check fails, then it means the
                ;; repository has a name that is substantially
                ;; different than the package name, and the user might

                                    local-repo (error-message-string err))
                          (format (concat "Processing of repository %S paused "
                                          "at your request.")
                                  local-repo))
                        ("SPC" "Go back to processing this repository")
                        ("s" (concat "Skip this repository for now and "
                                     "come back to it later")
