diff --git a/examples/netstack/incremental-highlevel/main.rkt b/examples/netstack/incremental-highlevel/main.rkt index b2d6c0c..37c838d 100644 --- a/examples/netstack/incremental-highlevel/main.rkt +++ b/examples/netstack/incremental-highlevel/main.rkt @@ -86,6 +86,6 @@ counter))) (send! (outbound (tcp-channel us them response))) (for [(i 4)] - (define buf (make-bytes 1024 (+ #x30 i))) + (define buf (make-bytes 1024 (+ #x30 (modulo i 10)))) (send! (outbound (tcp-channel us them buf)))) (stop-facet (current-facet-id)))))))