diff --git a/ssh-transport.rkt b/ssh-transport.rkt
index e53c263..d22481a 100644
--- a/ssh-transport.rkt
+++ b/ssh-transport.rkt
@@ -340,7 +340,8 @@
   (with-handlers ((exn? (lambda (e)
 			  (close-input-port in)
 			  (raise e))))
-    (main-loop initial-crypto-configuration 0 0)))
+    (main-loop initial-crypto-configuration 0 0)
+    (close-input-port in)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Encrypted Packet Output
@@ -394,4 +395,5 @@
   (with-handlers ((exn? (lambda (e)
 			  (close-output-port out)
 			  (raise e))))
-    (main-loop initial-crypto-configuration 0)))
+    (main-loop initial-crypto-configuration 0)
+    (close-output-port out)))