diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index c3c6b48f1c8..f54e6e7c284 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1088,9 +1088,9 @@ Selects a window with point at SOURCE, with another window displaying ERROR."
 	    (set-window-start w marker))
 	  (setq name
 		(expand-file-name
-		 (read-file-name
-		  (format "Find this error in: (default %s) "
-			  filename) dir filename t)))
+		 (read-file-name (format "Find this error in: (default %s) "
+					 filename)
+				 dir filename t)))
 	  (if (file-directory-p name)
 	      (setq name (concat (file-name-as-directory name) filename)))
 	  (if (file-exists-p name)