diff --git a/tcp.rkt b/tcp.rkt
index f8ad97b..fb3698c 100644
--- a/tcp.rkt
+++ b/tcp.rkt
@@ -310,7 +310,7 @@
 		    listener-listening?) ;; boolean
 	#:transparent)
 
-(define transmit-check-interval-msec 100)
+(define transmit-check-interval-msec 2000)
 (define inbound-buffer-limit 65535)
 (define maximum-segment-size 536) ;; bytes
 (define maximum-segment-lifetime-sec (* 2 60)) ;; two minutes; 2MSL is TIME-WAIT timeout