     (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)))
+                (format "Cloning %s" 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

               (when (and local-repo
                          (memq profile
                                (gethash package straight--profile-cache)))
                 (push (cons (file-name-nondirectory
                              (directory-file-name
                               local-repo))
                             (or (cdr (assoc local-repo versions-alist))
                                 (straight-vc-get-commit type local-repo)))
                       versions-alist)))))

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