diff --git a/racket/syndicate/drivers/irc.rkt b/racket/syndicate/drivers/irc.rkt
index ff6fb93..69cf31f 100644
--- a/racket/syndicate/drivers/irc.rkt
+++ b/racket/syndicate/drivers/irc.rkt
@@ -100,6 +100,8 @@
                 (retract! (irc-presence C
                                         (bytes->string/utf-8 src)
                                         (bytes->string/utf-8 tgt)))]
+               [(regexp #px#"^:([^!]+)![^ ]* QUIT :(.*)\r$" (list _ src _quitmsg))
+                (retract! (irc-presence C (bytes->string/utf-8 src) ?))]
                [(regexp #px#"^:([^!]+)![^ ]* JOIN ([^ ]+)\r$" (list _ src-bs tgt))
                 (define src (bytes->string/utf-8 src-bs))
                 (when (not (equal? src nick)) ;; See above marked (*)