diff --git a/chat-os2-paper.rkt b/chat-os2-paper.rkt
index b525d0b..4ea8c23 100644
--- a/chat-os2-paper.rkt
+++ b/chat-os2-paper.rkt
@@ -26,10 +26,9 @@
     (cin cout in-topic out-topic)
     (tcp-accept t))
   (transition 'no-state
-    (chat-roles me cout)
-    (net-roles me
-	       cin cout
-	       in-topic out-topic)))
+    (net-roles me cin cout
+	       in-topic out-topic)
+    (chat-roles me cout)))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define (chat-roles me cout)
@@ -51,8 +50,7 @@
 	  (cout (term->bytes msg)))])))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(define (net-roles me
-		   cin cout
+(define (net-roles me cin cout
 		   in-topic out-topic)
   (at-meta-level
    (cout (term->bytes `(you-are ,me)))