diff --git a/day-2.scm b/day-2.scm
index c3c2b21..91cfea0 100644
--- a/day-2.scm
+++ b/day-2.scm
@@ -19,7 +19,8 @@
 	(else
 	  (display "part 1: ")
 	  (display (* x y))
-	  (newline))))))
+	  (newline)
+	  (close-port file))))))
 
 (let [(file (open-input-file "day-2.input"))]
   (let loop [(x 0) (y 0) (aim 0)]
@@ -38,4 +39,5 @@
 	(else
 	  (display "part 2: ")
 	  (display (* x y))
-	  (newline))))))
+	  (newline)
+	  (close-port file))))))