diff --git a/ChangeLog b/ChangeLog
index f8b06d2fd1..5764a43994 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Sep  8 18:10:47 2009  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* tool/compile_prelude.rb: evaluates in the main context.
+	  [ruby-core:25474]
+
 Tue Sep  8 11:53:58 2009  Koichi Sasada  <ko1@atdot.net>
 
 	* iseq.c (iseq_mark): no need to mark inline cache entries.
diff --git a/tool/compile_prelude.rb b/tool/compile_prelude.rb
index 17b00f955a..66f9de221b 100755
--- a/tool/compile_prelude.rb
+++ b/tool/compile_prelude.rb
@@ -100,7 +100,7 @@ void
 Init_<%=init_name%>(void)
 {
 % lines_list.each_with_index {|(setup_lines, lines), i|
-  rb_iseq_eval(rb_iseq_compile(
+  rb_iseq_eval_main(rb_iseq_compile(
     rb_usascii_str_new(prelude_code<%=i%>, sizeof(prelude_code<%=i%>) - 1),
     rb_usascii_str_new(prelude_name<%=i%>, sizeof(prelude_name<%=i%>) - 1),
     INT2FIX(<%=1-setup_lines.length%>)));