1 files changed, 1 insertions, 3 deletions

diff --git a/lisp/frame.el b/lisp/frame.el
index 355486daa0a..0f64a361a97 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -667,9 +667,7 @@ setup is for focus to follow the pointer."
     (unless frame-creation-function
       (error "Don't know how to create a frame on window system %s" w))
     (run-hooks 'before-make-frame-hook)
-    (setq frame (funcall frame-creation-function parameters))
-    (modify-frame-parameters frame
-                             (cdr (assq w window-system-default-frame-alist)))
+    (setq frame (funcall frame-creation-function (append parameters (cdr (assq w window-system-default-frame-alist)))))
     (run-hook-with-args 'after-make-frame-functions frame)
     frame))