 merge not just from primary remote but also from upstream (for
 forked packages)."
   (interactive (list (straight--select-package
-                      "Merge package and dependencies" nil 'installed)
+                      "Merge package and dependencies" #'straight--installed-p)
                      current-prefix-arg))
   (let ((deps (make-hash-table :test #'equal)))
     (dolist (dep (straight--get-transitive-dependencies package))

using `completing-read'. With prefix argument FROM-UPSTREAM,
fetch not just from primary remote but also from upstream (for
forked packages)."
  (interactive (list (straight--select-package "Fetch package" nil 'installed)
                     current-prefix-arg))
  (let ((recipe (gethash package straight--recipe-cache)))
    (and (straight-vc-fetch-from-remote recipe)

using `completing-read'. With prefix argument FROM-UPSTREAM,
fetch not just from primary remote but also from upstream (for
forked packages)."
  (interactive (list (straight--select-package "Fetch package and dependencies"
                                               #'straight--installed-p)
                     current-prefix-arg))
  (let ((deps (make-hash-table :test #'equal)))
    (dolist (dep (straight--get-transitive-dependencies package))
