diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 93514d2cc81..4e546807b7f 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -171,7 +171,7 @@ icompletion is occurring."
            (car completion-all-sorted-completions)
            (eql (icomplete--field-end) (icomplete--field-beg)))
       (icomplete-force-complete-and-exit)
-    (exit-minibuffer)))
+    (minibuffer-complete-and-exit)))
 
 (defun icomplete-force-complete-and-exit ()
   "Complete the minibuffer with the longest possible match and exit.