diff --git a/ssh-transport.rkt b/ssh-transport.rkt
index e4bd395..5359a7d 100644
--- a/ssh-transport.rkt
+++ b/ssh-transport.rkt
@@ -917,7 +917,9 @@
     (let loop ((new-connection-state conn))
       ;; YUCK: in order to be able to send our disconnect messages in
       ;; the with-handlers above, we need to know the most up-to-date
-      ;; connection state. This is a thorny, ugly problem.
+      ;; connection state (so that we can encrypt and MAC the outbound
+      ;; message using the right algorithms and sequence
+      ;; numbers). This is a thorny, ugly problem.
       (set! conn new-connection-state)
       (if (time-to-rekey? (connection-rekey-state conn) conn)
 	  (let ((algs ((local-algorithm-list))))