diff --git a/ChangeLog b/ChangeLog
index 51865e7acc..94d8fe9e3a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Jul  6 09:23:28 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* proc.c (proc_hash): use long.
+
 Mon Jul  6 09:06:49 2009  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* test/ruby/test_module.rb (TestModule#test_undef): adjust to
diff --git a/proc.c b/proc.c
index 5ee01f76b5..fe8fd4967b 100644
--- a/proc.c
+++ b/proc.c
@@ -751,13 +751,13 @@ proc_eq(VALUE self, VALUE other)
 static VALUE
 proc_hash(VALUE self)
 {
-    int hash;
+    long hash;
     rb_proc_t *proc;
     GetProcPtr(self, proc);
     hash = (long)proc->block.iseq;
     hash ^= (long)proc->envval;
     hash ^= (long)proc->block.lfp >> 16;
-    return INT2FIX(hash);
+    return LONG2FIX(hash);
 }
 
 /*