diff --git a/ChangeLog b/ChangeLog
index ba8db46ff8..5589afb961 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Sat Aug 25 08:47:28 2007  Koichi Sasada  <ko1@atdot.net>
+
+	* tool/compile_prelude.rb: fix to include "vm_core.h".
+
 Sat Aug 25 03:49:14 2007  Tanaka Akira  <akr@fsij.org>
 
 	* test/ruby/sentence.rb (Sentence): include Enumerable.
diff --git a/tool/compile_prelude.rb b/tool/compile_prelude.rb
index 13ccb8aced..cdf6861794 100644
--- a/tool/compile_prelude.rb
+++ b/tool/compile_prelude.rb
@@ -2,14 +2,16 @@
 prelude, outfile = *ARGV
 lines = []
 
-File.readlines(prelude).each{|line|
-  lines << "#{line.dump}"
+lines = File.readlines(prelude).map{|line|
+  line.dump
 }
 
 open(outfile, 'w'){|f|
 f.puts <<EOS__
 
 #include "ruby/ruby.h"
+#include "vm_core.h"
+
 static const char *prelude_code = 
 #{lines.join("\n")}
 ;
@@ -18,7 +20,11 @@ Init_prelude(void)
 {
   rb_iseq_eval(rb_iseq_compile(
     rb_str_new2(prelude_code),
-    rb_str_new2("prelude.rb"), INT2FIX(1)));
+    rb_str_new2("#{File.basename(prelude)}"), INT2FIX(1)));
+
+#if 0
+    printf("%s\n", prelude_code);
+#endif
 }
 EOS__
 }