diff --git a/collects/mred/private/wx/cocoa/queue.rkt b/collects/mred/private/wx/cocoa/queue.rkt
index ee3dd5279d..3acd1e9ab3 100644
--- a/collects/mred/private/wx/cocoa/queue.rkt
+++ b/collects/mred/private/wx/cocoa/queue.rkt
@@ -269,7 +269,7 @@
 (import-class NSDate)
 (define distantFuture (tell NSDate distantFuture))
 
-(define eventspace-hook (lambda (e) #f))
+(define eventspace-hook (lambda (e v) #f))
 (define (set-eventspace-hook! proc) (set! eventspace-hook proc))
 
 (define front-hook (lambda () (values #f #f)))