diff --git a/ChangeLog b/ChangeLog
index aaef9325fb..a67f5c298a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Aug 15 13:39:25 2007  Koichi Sasada  <ko1@atdot.net>
+
+	* process.c (proc_geteuid): fix strange cast.  [ruby-dev:31417]
+
 Wed Aug 15 01:05:55 2007  Tanaka Akira  <akr@fsij.org>
 
 	* bootstraptest/runner.rb (assert_check): don't call newtest.
diff --git a/process.c b/process.c
index 0ff54d077e..97bbda935e 100644
--- a/process.c
+++ b/process.c
@@ -3067,7 +3067,7 @@ static VALUE
 proc_geteuid(VALUE obj)
 {
     rb_uid_t euid = geteuid();
-    return NUM2UIDT(euid);
+    return UIDT2NUM(euid);
 }