 (defun straight-thaw-versions ()
   "Read version lockfiles and restore package versions to those listed."
   (interactive)
-  (let ((versions-alist (straight--get-versions)))
+  (let ((versions-alist (straight--lockfile-read-all)))
     (straight--map-repos-interactively
      (lambda (package)
        (let ((recipe (gethash package straight--recipe-cache)))

          (`busybox nil)
          (lst lst))))

;;;; Version control

(defun straight-vc (method type &rest args)

`straight-rebuild-package' or `straight-rebuild-all' is
invoked.")

;;;;; Interactive mapping

(cl-defun straight--map-repos-interactively (func &optional predicate action)
