diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 7fe8a51d..c672c9dd 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -5143,9 +5143,9 @@
      (case family
        [(system) "systemfont"]
        [(default) "applicationfont"]
-       [(roman) "times"]
-       [(decorative) "geneva"]
-       [(modern) "monaco"]
-       [(swiss) "helvetica"]
-       [(script) "geneva"])]))
+       [(roman) "Times"]
+       [(decorative) "Geneva"]
+       [(modern) "Monaco"]
+       [(swiss) "Helvetica"]
+       [(script) "Geneva"])]))