 specified in RECIPE."
   (straight--with-plist recipe
       (local-repo type)
-    (let ((straight--default-directory (straight--dir "repos" local-repo)))
+    (let ((straight--default-directory (straight--repos-dir local-repo)))
       (straight-vc 'normalize type recipe))))
 
 (defun straight-vc-fetch-from-remote (recipe)

`:type' specified in RECIPE."
  (straight--with-plist recipe
      (local-repo type)
    (let ((straight--default-directory (straight--dir "repos" local-repo)))
      (straight-vc 'push-to-remote type recipe))))

(defun straight-vc-check-out-commit (type local-repo commit)

      ;; paranoid with recursive deletes.)
      (unless (or (string-match-p "^\\.\\.?$" package)
                  (gethash package straight--profile-cache))
        (delete-directory (straight--build-dir package) 'recursive)))))

;;;;; Normalization, pushing, pulling

