diff --git a/collects/mred/private/wx/gtk/list-box.rkt b/collects/mred/private/wx/gtk/list-box.rkt
index c112f034..19790996 100644
--- a/collects/mred/private/wx/gtk/list-box.rkt
+++ b/collects/mred/private/wx/gtk/list-box.rkt
@@ -211,7 +211,7 @@
              [font font]
              [no-show? (memq 'deleted style)])
 
-  (set-auto-size)
+  (set-auto-size 32) ; 32 is extra width
 
   (connect-changed selection)
   (connect-activated client-gtk)
diff --git a/collects/mred/private/wx/gtk/window.rkt b/collects/mred/private/wx/gtk/window.rkt
index ef2a9b2f..50553474 100644
--- a/collects/mred/private/wx/gtk/window.rkt
+++ b/collects/mred/private/wx/gtk/window.rkt
@@ -510,13 +510,13 @@
           (set! client-delta-h (- (GtkRequisition-height req)
                                   (GtkRequisition-height creq))))))
 
-    (define/public (set-auto-size)
+    (define/public (set-auto-size [dw 0] [dh 0])
       (let ([req (make-GtkRequisition 0 0)])
         (gtk_widget_size_request gtk req)
         (set-size -11111
                   -11111
-                  (GtkRequisition-width req)
-                  (GtkRequisition-height req))))
+                  (+ (GtkRequisition-width req) dw)
+                  (+ (GtkRequisition-height req) dh))))
 
     (define shown? #f)
     (define/public (direct-show on?)