diff --git a/collects/mred/private/wx/cocoa/list-box.rkt b/collects/mred/private/wx/cocoa/list-box.rkt
index 8aaea93a3d..e45b2e08aa 100644
--- a/collects/mred/private/wx/cocoa/list-box.rkt
+++ b/collects/mred/private/wx/cocoa/list-box.rkt
@@ -95,7 +95,7 @@
       (define cols
         (for/list ([title (in-list columns)])
           (let ([col (as-objc-allocation
-                      (tell (tell NSTableColumn alloc) initWithIdentifier: content-cocoa))])
+                      (tell (tell NSTableColumn alloc) initWithIdentifier: #:type _NSString title))])
             (tellv content-cocoa addTableColumn: col)
             (tellv (tell col headerCell) setStringValue: #:type _NSString title)
             col)))
@@ -105,6 +105,7 @@
 
   (tellv cocoa setDocumentView: content-cocoa)
   (tellv cocoa setHasVerticalScroller: #:type _BOOL #t)
+  (tellv cocoa setHasHorizontalScroller: #:type _BOOL #t)
   (unless (memq 'column-headers style)
     (tellv content-cocoa setHeaderView: #f))
   (define allow-multi? (not (eq? kind 'single)))
diff --git a/collects/mred/private/wx/gtk/list-box.rkt b/collects/mred/private/wx/gtk/list-box.rkt
index 1979099635..94b536bb23 100644
--- a/collects/mred/private/wx/gtk/list-box.rkt
+++ b/collects/mred/private/wx/gtk/list-box.rkt
@@ -142,7 +142,7 @@
       (set-selection 0)))
     
   (define gtk (as-gtk-allocation (gtk_scrolled_window_new #f #f)))
-  (gtk_scrolled_window_set_policy gtk GTK_POLICY_NEVER GTK_POLICY_ALWAYS)
+  (gtk_scrolled_window_set_policy gtk GTK_POLICY_AUTOMATIC GTK_POLICY_ALWAYS)
 
   (define headers? (memq 'column-headers style))
   (define click-headers? (and headers?