--- /cygdrive/c/Program Files/emacs-20.7/lisp/frame.el	Wed Jun 20 10:12:36 2001
+++ frame.el	Thu Jun 21 10:34:50 2001
@@ -371,6 +371,12 @@
 	    (setq newparms (nreverse newparms))
 	    (modify-frame-parameters frame-initial-frame
 				     newparms)
+            ;; On the initial frame, background-color won't be set
+            ;; until after modify-frame-parameters is called, so we
+            ;; have to set background-mode and then set up the colors
+            ;; manually, as x-create-frame-with-faces does.
+            (frame-set-background-mode frame-initial-frame)
+            (face-set-after-frame-default frame-initial-frame)
 	    (if (assq 'font newparms)
 		(frame-update-faces frame-initial-frame)))))