diff --git a/ChangeLog b/ChangeLog
index 1d396d38f6..f28c904e8f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Aug 30 18:21:51 2012  Tanaka Akira  <akr@fsij.org>
+
+	* io.c (rb_io_close): call rb_last_status_clear.
+
 Thu Aug 30 16:17:52 2012  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* ext/bigdecimal/bigdecimal.c (BigDecimal_to_f): check underflow since
diff --git a/io.c b/io.c
index 4b6851b44d..f5122cf1c3 100644
--- a/io.c
+++ b/io.c
@@ -4020,6 +4020,7 @@ rb_io_close(VALUE io)
     rb_thread_fd_close(fd);
 
     if (fptr->pid) {
+        rb_last_status_clear();
 	rb_syswait(fptr->pid);
 	fptr->pid = 0;
     }