 
 (defun straight--get-gnu-elpa-recipe (package)
   (unless (straight--repository-is-available-p gnu-elpa-recipe)
-    (straight--clone-repository gnu-elpa-recipe))
+    (straight--clone-repository gnu-elpa-recipe
+                                '(:package (symbol-name package))
+                                "looking for"))
   (straight--with-plist gnu-elpa-recipe
       (local-repo)
     (when (file-exists-p (straight--dir


;;;###autoload
(defun straight-use-package (melpa-style-recipe
                             &optional interactive straight-style)
  (interactive (list (straight-get-elpa-recipe) t))
  (let ((recipe (if straight-style melpa-style-recipe
                  (straight--convert-recipe melpa-style-recipe))))


(defun straight--get-melpa-recipe (package)
  (unless (straight--repository-is-available-p melpa-recipe)
    (straight--clone-repository melpa-recipe
                                '(:package (symbol-name package))
                                "looking for"))
  (with-temp-buffer
    (when
        (condition-case nil
