diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index a3ab123cc9a..fc6fe1553e0 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -2803,7 +2803,8 @@ completions list."
    (list (let ((styles (completion--styles (completion--field-metadata
                                             (minibuffer-prompt-end))))
                (current (when-let ((buf (get-buffer "*Completions*")))
-                          (buffer-local-value 'completion-style buf))))
+                          (buffer-local-value 'completion-style buf)))
+               (enable-recursive-minibuffers t))
            (pcase current-prefix-arg
              (`(,_ . ,_) nil)           ; \\[universal-argument]
              (0 (unless current