diff --git a/lisp/frame.el b/lisp/frame.el
index e1fb765a13b..1fba93e184f 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -246,9 +246,13 @@ These supersede the values given in `default-frame-alist'.")
 	      (while (not (cdr (assq 'visibility
 				     (frame-parameters frame-initial-frame))))
 		(sleep-for 1))
+	      (setq parms (frame-parameters frame-initial-frame))
+	      ;; Get rid of `name' unless it was specified explicitly before.
+	      (or (assq 'name frame-initial-frame-alist)
+		  (setq parms (delq (assq 'name parms) parms)))
 	      (setq parms (append initial-frame-alist
 				  default-frame-alist
-				  (frame-parameters frame-initial-frame)
+				  parms
 				  nil))
 	      ;; Get rid of `reverse', because that was handled
 	      ;; when we first made the frame.