diff --git a/ChangeLog b/ChangeLog
index 1fe019e93f..eaa20be4c3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Nov 26 11:01:35 2014  Eric Wong  <e@80x24.org>
+
+	* iseq.c (iseq_s_compile_file): close IO when done
+
 Wed Nov 26 06:06:23 2014  Tanaka Akira  <akr@fsij.org>
 
 	* common.mk: encdb.h and transdb.h depends on $(PREP).
diff --git a/iseq.c b/iseq.c
index f290ed4692..dfe9874120 100644
--- a/iseq.c
+++ b/iseq.c
@@ -722,6 +722,9 @@ iseq_s_compile_file(int argc, VALUE *argv, VALUE self)
 
     parser = rb_parser_new();
     node = rb_parser_compile_file(parser, fname, f, NUM2INT(line));
+
+    rb_io_close(f);
+
     make_compile_option(&option, opt);
     return rb_iseq_new_with_opt(node, rb_str_new2("<main>"), file,
 				rb_realpath_internal(Qnil, file, 1), line, Qfalse,