diff --git a/ChangeLog b/ChangeLog
index c32f12d5b8..d12bec132c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,11 +1,15 @@
+Tue Dec 23 23:49:37 2008  Tanaka Akira  <akr@fsij.org>
+
+	* io.c (rb_io_init_copy): call io_seek only if io_tell succeeds.
+
 Tue Dec 23 22:57:48 2008  Tanaka Akira  <akr@fsij.org>
 
-	* process.c (rb_fork): don't propagete an error message if error
+	* process.c (rb_fork): don't propagate an error message if error
 	  buffer not given.
 
 Tue Dec 23 21:55:05 2008  Tanaka Akira  <akr@fsij.org>
 
-	* process.c (rb_fork): propagete an error message from child to parent.
+	* process.c (rb_fork): propagate an error message from child to parent.
 	  (rb_f_exec): show details of error in child process on
 	  exception.
 	  (save_redirect_fd): add error message arguments.
diff --git a/io.c b/io.c
index eae314b73b..e86a59ae73 100644
--- a/io.c
+++ b/io.c
@@ -5368,6 +5368,7 @@ rb_io_init_copy(VALUE dest, VALUE io)
     rb_io_t *fptr, *orig;
     int fd;
     VALUE write_io;
+    off_t pos;
 
     io = rb_io_get_io(io);
     if (dest == io) return dest;
@@ -5386,7 +5387,9 @@ rb_io_init_copy(VALUE dest, VALUE io)
 
     fd = ruby_dup(orig->fd);
     fptr->fd = fd;
-    io_seek(fptr, io_tell(orig), SEEK_SET);
+    pos = io_tell(orig);
+    if (0 <= pos)
+        io_seek(fptr, pos, SEEK_SET);
     if (fptr->mode & FMODE_BINMODE) {
 	rb_io_binmode(dest);
     }