diff --git a/lisp/frame.el b/lisp/frame.el
index f36a34db7d7..60234fc2ae9 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -798,7 +798,10 @@ also select the new frame."
   (interactive "i\nP")
   (if use-default-parameters
       (make-frame-command)
-    (let* ((default-frame-alist (frame-parameters frame))
+    (let* ((default-frame-alist (seq-filter
+                                 (lambda (elem)
+                                   (not (eq (car elem) 'name)))
+                                 (frame-parameters frame)))
            (new-frame (make-frame)))
       (unless (display-graphic-p)
         (select-frame new-frame))