diff --git a/collects/mred/private/wx/cocoa/queue.rkt b/collects/mred/private/wx/cocoa/queue.rkt
index c3c3b16b31..d0ac5d21a3 100644
--- a/collects/mred/private/wx/cocoa/queue.rkt
+++ b/collects/mred/private/wx/cocoa/queue.rkt
@@ -78,8 +78,7 @@
       (queue-file-event (string->path filename))]
   [-a _void (applicationDidFinishLaunching: [_id notification])
       (unless got-file?
-        (queue-start-empty-event))
-      (tellv app stop: self)]
+        (queue-start-empty-event))]
   [-a _BOOL (applicationShouldHandleReopen: [_id app] hasVisibleWindows: [_BOOL has-visible?])
       ;; If we have any visible windows, return #t to do the default thing.
       ;; Otherwise return #f, because we don't want any invisible windows resurrected.
@@ -133,11 +132,7 @@
   (unless (zero? v)
     (log-error (format "error from CGDisplayRegisterReconfigurationCallback: ~a" v))))
 
-;; To make sure that `finishLaunching' is called, call `run'
-;; and have `applicationDidFinishLaunching' quit the run loop,
-;; which seems to work better than calling `finishLaunching'
-;; directly.
-(tellv app run)
+(tellv app finishLaunching)
 
 ;; ------------------------------------------------------------
 ;; Create an event to post when MzScheme has been sleeping but is