From b238c1d55bccb0a92827c1a6cb908e01b041d313 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 11 Aug 2011 01:12:08 -0400
Subject: [PATCH] Roll sequence number over at the end of 32 bits

---
 ssh-transport.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ssh-transport.rkt b/ssh-transport.rkt
index d507033..dae2c05 100644
--- a/ssh-transport.rkt
+++ b/ssh-transport.rkt
@@ -116,7 +116,8 @@
 			      packet
 			      write-packet!
 			      (lambda (new-seed) (loop new-seed
-						       (+ sequence-number 1)
+						       (bitwise-and (+ sequence-number 1)
+								    #xffffffff)
 						       cipher
 						       check-mac!))
 			      (lambda args