diff --git a/collects/mred/private/gdi.ss b/collects/mred/private/gdi.ss
index fd2caf7831..d7716f8e65 100644
--- a/collects/mred/private/gdi.ss
+++ b/collects/mred/private/gdi.ss
@@ -270,7 +270,7 @@
 			[else 1]))
   (define tiny-delta (case (system-type)
 			[(windows) 1]
-			[else 0]))
+			[else 2]))
 
   (define normal-control-font (make-object wx:font% (wx:get-control-font-size) 'system))
   (define small-control-font (make-object wx:font% (- (wx:get-control-font-size) small-delta) 'system))