diff --git a/chat-os2.rkt b/chat-os2.rkt
index 437a954..de1b64a 100644
--- a/chat-os2.rkt
+++ b/chat-os2.rkt
@@ -25,7 +25,7 @@
     (at-meta-level (cin (tcp-credit 1)))
     (at-meta-level (role/anon out-topic))
     (at-meta-level (role/anon in-topic
-		     [(tcp-channel _ _ (? eof-object?)) (kill)]
+		     #:on-absence (kill)
 		     [(tcp-channel _ _ (? bytes? line))
 		      (list (at-meta-level (cin (tcp-credit 1)))
 			    (send-message `(,connection-id says ,line)))]))