diff --git a/ChangeLog b/ChangeLog
index 6ed4ec8306..ab653c007e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Dec  7 19:08:00 2004  Akiyoshi, Masamichi <akiyoshi@hp.com>
+
+	* io.c (io_fwrite): fix offset incrementation (for VMS and Human68k)
+
 Tue Dec  7 00:27:37 2004  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* process.c (proc_setgroups): [ruby-dev:25081]
diff --git a/io.c b/io.c
index f2bcf0b38a..74ed5c74c5 100644
--- a/io.c
+++ b/io.c
@@ -417,8 +417,7 @@ io_fwrite(str, fptr)
     }
 #if defined(__human68k__) || defined(__vms)
     do {
-	if (fputc(RSTRING(str)->ptr+offset, f) == EOF) {
-	    offset++;
+	if (fputc(*(RSTRING(str)->ptr+(offset++)), f) == EOF) {
 	    if (ferror(f)) return -1L;
 	    break;
 	}