diff --git a/os2-event-relay.rkt b/os2-event-relay.rkt
index 3a42c1e..701501c 100644
--- a/os2-event-relay.rkt
+++ b/os2-event-relay.rkt
@@ -22,7 +22,7 @@
 			      (send-message msg))])))]
 		     [_ state])
      #:on-absence (match t
-		    [(topic 'subscriber (cons (? evt?) e) #f)
+		    [(topic 'subscriber (cons (? evt? e) _) #f)
 		     (printf "UNSUBSCRIBED ~v~n" e) (flush-output)
 		     (transition state
 		       (at-meta-level (delete-role t)))]))))