diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index b3321baba99..db6be787c57 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -764,7 +764,7 @@ Returns the compilation buffer created."
       (if (eq outbuf (current-buffer))
 	  (goto-char (point-max)))
       ;; Pop up the compilation buffer.
-      (setq outwin (display-buffer outbuf))
+      (setq outwin (display-buffer outbuf nil t))
       (save-excursion
 	(set-buffer outbuf)
 	(compilation-mode name-of-mode)