From 6adf352ebf7feaaab905c0cc44cda9ffce6914f1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 24 Feb 2003 20:05:10 +0000
Subject: [PATCH] .

original commit: 9792a9a2843d9c2e388070b27c9ae5c647b699b5
---
 collects/mred/mred.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index d6d2fb8e..d98116df 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -6993,17 +6993,17 @@
        [(decorative) "Geneva"]
        [(modern) "Monaco"]
        [(swiss) "Helvetica"]
-       [(script) "Geneva"]
+       [(script) "Zaph Chancery"]
        [(symbol) "Symbol"])]
     [(macosx)
      (case family
        [(system) "systemfont"]
        [(default) "applicationfont"]
        [(roman) "Times"]
-       [(decorative) "Lucida Grande"]
-       [(modern) "Monaco"]
+       [(decorative) "Geneva"]
+       [(modern) "Courier New"]
        [(swiss) "Helvetica"]
-       [(script) "Geneva"]
+       [(script) "Apple Chancery"]
        [(symbol) "Symbol"])]))
 
 (define (send-message-to-window x y m)