diff --git a/chat-os2-paper.rkt b/chat-os2-paper.rkt
index 10fa876..25aec45 100644
--- a/chat-os2-paper.rkt
+++ b/chat-os2-paper.rkt
@@ -37,12 +37,12 @@
    (cin (tcp-credit 1))
    (role out-t)
    (role in-t
-    #:on-absence (kill)
-    [(tcp-channel _ _ (? bytes? line))
-     (list (at-meta-level
-	    (cin (tcp-credit 1)))
-	   (send-message
-	    `(,me says ,line)))])))
+     #:on-absence (kill)
+     [(tcp-channel _ _ (? bytes? line))
+      (list (at-meta-level
+	     (cin (tcp-credit 1)))
+	    (send-message
+	     `(,me says ,line)))])))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (define (chat-roles me cout)