diff --git a/syndicate/drivers/web.rkt b/syndicate/drivers/web.rkt
index 818940f..0f75196 100644
--- a/syndicate/drivers/web.rkt
+++ b/syndicate/drivers/web.rkt
@@ -307,10 +307,10 @@
                                                                 (exn->string e))
                                (shutdown!)))]
     (let loop ()
-      (sync (handle-evt wsc (lambda _args
-                              (define msg (ws-recv wsc #:payload-type 'auto))
-                              (ground-send! (inbound (websocket-in id msg)))
-                              (loop)))
+      (sync (handle-evt (ws-recv-evt wsc #:payload-type 'auto)
+                        (lambda (msg)
+                          (ground-send! (inbound (websocket-in id msg)))
+                          (loop)))
             (handle-evt ws-ch (match-lambda
                                 ['quit
                                  (set! quit-seen? #t)