diff --git a/syndicate/drivers/tcp.rkt b/syndicate/drivers/tcp.rkt
index b796e3c..99780f9 100644
--- a/syndicate/drivers/tcp.rkt
+++ b/syndicate/drivers/tcp.rkt
@@ -232,11 +232,11 @@
                            #:on-data on-data
                            #:on-eof [on-eof void]
                            #:on-credit [on-credit void])
-  (when initial-credit (send-credit conn initial-credit initial-mode))
   (assert-control conn
                   #:on-data on-data
                   #:on-eof on-eof
-                  #:on-credit on-credit))
+                  #:on-credit on-credit)
+  (when initial-credit (send-credit conn initial-credit initial-mode)))
 
 (define (assert-control conn
                         #:on-data on-data