diff --git a/collects/racket/draw/font-dir.rkt b/collects/racket/draw/font-dir.rkt
index 5490ee7c88..fce1cd3e84 100644
--- a/collects/racket/draw/font-dir.rkt
+++ b/collects/racket/draw/font-dir.rkt
@@ -48,7 +48,9 @@
 
     (define/private (default-font s)
       (case s
-        [(modern) "Monospace"]
+        [(modern) (case (system-type)
+                    [(windows macosx) "Courier New"]
+                    [else "Monospace"])]
         [(roman) (case (system-type)
                    [(windows) "Times New Roman"]
                    [(macosx) "Times"]