diff --git a/ChangeLog b/ChangeLog
index a0fbb8cb66..b62453dce3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sun Jun 10 20:55:59 2012  Tanaka Akira  <akr@fsij.org>
+
+	* process.c (rb_fork_ruby): call rb_fork_internal directly.
+
 Sun Jun 10 20:19:40 2012  Tanaka Akira  <akr@fsij.org>
 
 	* process.c (rb_fork_ruby): new function.
diff --git a/process.c b/process.c
index 485a5ef600..f49598ede4 100644
--- a/process.c
+++ b/process.c
@@ -3014,7 +3014,7 @@ rb_fork(int *status, int (*chfunc)(void*), void *charg, VALUE fds)
 rb_pid_t
 rb_fork_ruby(int *status)
 {
-    return rb_fork(status, NULL, NULL, Qnil);
+    return rb_fork_internal(status, NULL, NULL, FALSE, Qnil, NULL, 0);
 }
 
 #endif