diff --git a/collects/mred/private/wx/cocoa/list-box.rkt b/collects/mred/private/wx/cocoa/list-box.rkt
index ceb95b5e40..73ab676dfe 100644
--- a/collects/mred/private/wx/cocoa/list-box.rkt
+++ b/collects/mred/private/wx/cocoa/list-box.rkt
@@ -162,6 +162,10 @@
   (def/public-unimplemented get-label-font)
 
   (define cell-font (and font (font->NSFont font)))
+  (when cell-font
+    (tellv content-cocoa setRowHeight: #:type _CGFloat
+           (+ (tell #:type _CGFloat cell-font defaultLineHeightForFont) 2)))
+
   (define/public (get-cell-font)
     cell-font)