diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/radio-box.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/radio-box.rkt
index 2b88363273..79f904062e 100644
--- a/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/radio-box.rkt
+++ b/pkgs/gui-pkgs/gui-lib/mred/private/wx/cocoa/radio-box.rkt
@@ -83,6 +83,7 @@
                                            RacketImageButtonCell)
                             numberOfRows: #:type _NSInteger (if horiz? 1 (length labels))
                             numberOfColumns: #:type _NSInteger (if horiz? (length labels) 1)))])
+                (tellv cocoa setIntercellSpacing: #:type _NSSize (make-NSSize 2 2))
                 (for ([label (in-list labels)]
                       [i (in-naturals)])
                   (let ([button (tell cocoa 
diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wxlitem.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wxlitem.rkt
index a32d650cde..78077b7ba6 100644
--- a/pkgs/gui-pkgs/gui-lib/mred/private/wxlitem.rkt
+++ b/pkgs/gui-pkgs/gui-lib/mred/private/wxlitem.rkt
@@ -42,6 +42,7 @@
   (define (make-label label proxy p font)
     (and label 
          (let ([l (make-object wx-message% #f proxy p label -1 -1 null font)])
+           (send l x-margin 0) (send l y-margin 0)
 	   (send l skip-enter-leave-events #t)
            (send l skip-subwindow-events? #t)
            l)))