diff --git a/collects/mred/private/wx/cocoa/README.txt b/collects/mred/private/wx/cocoa/README.txt
index b989a69751..df66a5c0a3 100644
--- a/collects/mred/private/wx/cocoa/README.txt
+++ b/collects/mred/private/wx/cocoa/README.txt
@@ -3,7 +3,7 @@ Allocation rules:
 
  * Use `as-objc-allocation' when creating a Cocoa object. When the
    resulting reference becomes unreachable, the Cocoa object will be
-   releaset.
+   released.
 
  * Use `with-autorelease' in atomic mode around calls that autorelease
    and where the release should take effect immediate. Do not create
diff --git a/collects/mred/private/wx/cocoa/tab-panel.rkt b/collects/mred/private/wx/cocoa/tab-panel.rkt
index 62a22c5eba..d67e669e69 100644
--- a/collects/mred/private/wx/cocoa/tab-panel.rkt
+++ b/collects/mred/private/wx/cocoa/tab-panel.rkt
@@ -28,7 +28,6 @@
 
 (define-objc-class MyTabView NSTabView
   #:mixins (FocusResponder KeyMouseResponder CursorDisplayer)
-  #:protocols (NSTabViewDelegate)
   [wxb]
   (-a _void (tabView: [_id cocoa] didSelectTabViewItem: [_id item-cocoa])
       (queue-window*-event wxb (lambda (wx) (send wx do-callback)))))
@@ -50,7 +49,8 @@
   (define tabv-cocoa (as-objc-allocation
                       (tell (tell MyTabView alloc) init)))
   (define cocoa (if (not (memq 'border style))
-                    (tell (tell NSView alloc) init)
+                    (as-objc-allocation
+                     (tell (tell NSView alloc) init))
                     tabv-cocoa))
 
   (define control-cocoa