2 files changed, 3 insertions, 1 deletions

diff --git a/README.multi-tty b/README.multi-tty
index 4f05a7a0429..649a01590d9 100644
--- a/README.multi-tty
+++ b/README.multi-tty
@@ -179,6 +179,7 @@ THANKS
 The following is an (incomplete) list of people who have contributed
 to the project by testing, bug reports, and suggestions.  Thanks!
 
+ARISAWA Akihiro <ari at mbf dot ocn dot ne dot jp>
 Robert J. Chassell <bob at rattlesnake dot com>
 Romain Francoise <romain at orebokech dot com>
 Ami Fischman <ami at fischman dot org>
diff --git a/lisp/frame.el b/lisp/frame.el
index d8ddfa67862..b02660dff3b 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -651,7 +651,8 @@ on `after-make-frame-functions' are run with one arg, the newly created frame."
       (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 (assq w window-system-default-frame-alist))
+    (modify-frame-parameters frame
+                             (cdr (assq w window-system-default-frame-alist)))
     (run-hook-with-args 'after-make-frame-functions frame)
     frame))