diff --git a/ChangeLog b/ChangeLog
index 73aaff23f1..94322d1762 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Sat Feb 09 01:01:38 2008  NARUSE, Yui  <naruse@ruby-lang.org>
+
+	* file.c (lchmod_internal): fix warning cast from pointer to integer of
+	  different size.
+
 Sat Feb  9 00:44:52 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* lib/irb.rb (IRB::Irb::eval_input): rescues Interrupt and other than
diff --git a/file.c b/file.c
index 4a41e0b444..12dc3ebba8 100644
--- a/file.c
+++ b/file.c
@@ -1872,7 +1872,7 @@ rb_file_chmod(VALUE obj, VALUE vmode)
 static void
 lchmod_internal(const char *path, void *mode)
 {
-    if (lchmod(path, (int)mode) < 0)
+    if (lchmod(path, (int)(VALUE)mode) < 0)
 	rb_sys_fail(path);
 }