io.c (io_fwrite) : fix offset incrementation for VMS and Human68k.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@7491 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 1 insertions, 2 deletions

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;
 	}