diff --git a/src/tcp/flow.ml b/src/tcp/flow.ml
index a96e2400..26bbe87b 100644
--- a/src/tcp/flow.ml
+++ b/src/tcp/flow.ml
@@ -585,9 +585,7 @@ struct
 
   (* Maximum allowed write *)
   let write_available pcb =
-    (* Our effective outgoing MTU is what can fit in a page *)
-    min 4000 (min (Window.tx_mss pcb.wnd)
-                (Int32.to_int (UTX.available pcb.utx)))
+    min (Window.tx_mss pcb.wnd) (Int32.to_int (UTX.available pcb.utx))
 
   (* Wait for more write space *)
   let write_wait_for pcb sz =