diff --git a/ChangeLog b/ChangeLog
index 2215adcfff..60ff6ca585 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Dec  9 12:49:22 2003  Tanaka Akira  <akr@m17n.org>
+
+	* io.c (rb_io_check_readable): Don't clear EOF flag by io_seek.
+
 Tue Dec  9 02:53:55 2003  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/sample/tkalignbox.rb: new sample script
diff --git a/io.c b/io.c
index 06d9283102..aa3fc5536c 100644
--- a/io.c
+++ b/io.c
@@ -226,6 +226,7 @@ rb_io_check_readable(fptr)
 #if NEED_IO_SEEK_BETWEEN_RW
     if (((fptr->mode & FMODE_WBUF) ||
 	 (fptr->mode & (FMODE_SYNCWRITE|FMODE_RBUF)) == FMODE_SYNCWRITE) &&
+	!feof(fptr->f) &&
 	!fptr->f2) {
 	io_seek(fptr, 0, SEEK_CUR);
     }