                 ;; it.
                 ((memq context '(:byte-compile :ensure
                                  :config :pre-ensure
-                                 :interactive))
+                                 :interactive :dumb))
                  nil)
                 ;; Otherwise, prompt the user.
                 (t

    ;; `package-install'.
    (eval-and-compile
      (defun straight-use-package-ensure-function
          (name ensure state context &optional only-if-installed)
        "Value for `use-package-ensure-function' that uses straight.el.
The meanings of args NAME, ENSURE, STATE, CONTEXT are the same as
in `use-package-ensure-function' (which see). ONLY-IF-INSTALLED
is a nonstandard argument that indicates the package should use
lazy installation."
        (when ensure
          (let ((recipe (or (and (not (eq ensure t)) ensure)
                            (plist-get state :recipe)
                            name)))
            (straight-use-package
             recipe
             (lambda (package available)

    ;; Set the package management functions.
    (setq use-package-ensure-function
          #'straight-use-package-ensure-function)
    (when (boundp 'use-package-pre-ensure-function)
      (setq use-package-pre-ensure-function
            #'straight-use-package-pre-ensure-function))

    ;; Register aliases for :ensure. Aliases later in the list will
    ;; override those earlier. (But there is no legitimate reason to
