diff --git a/ChangeLog b/ChangeLog
index 4efbe7e21e..7f7fc2d5af 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Feb  3 08:01:38 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* win32/win32.c (rb_w32_write): use of cast expressions as lvalues
+	  is deprecated.
+
 Tue Feb  3 07:57:58 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* ext/socket/extconf.rb (in_pktinfo, in6_pktinfo),
diff --git a/win32/win32.c b/win32/win32.c
index 25368c1edb..9e1fd7ce86 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -4602,7 +4602,7 @@ rb_w32_write(int fd, const void *buf, size_t size)
 
     ret += written;
     if (written == len) {
-	(const char *)buf += len;
+	buf = (const char *)buf + len;
 	if (size > 0)
 	    goto retry;
     }