--- a/lisp/gui.el	Mon Aug 13 10:32:23 2007 +0200
+++ b/lisp/gui.el	Mon Aug 13 10:33:18 2007 +0200
@@ -88,8 +88,10 @@
 (if (not (face-differs-from-default-p 'gui-button-face))
     (progn
       (set-face-reverse-p 'gui-button-face t)
-      (set-face-background 'gui-button-face "grey75" nil '(x color))
-      (set-face-foreground 'gui-button-face "black" nil '(x color))))
+      (set-face-background 'gui-button-face '(((x color) . "grey75")
+					      ((mswindows color) . "grey75")))
+      (set-face-foreground 'gui-button-face '(((x color) . "black")
+					      ((mswindows color) . "black")))))
 
 (defun make-gui-button (string &optional action user-data)
   "Make a GUI button whose label is STRING and whose action is ACTION.