diff --git a/ChangeLog b/ChangeLog
index d83ab45733..f042222da3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Jan 29 23:52:32 2007  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* tool/compile.rb: replace YARVCore by VM class.
+
 Mon Jan 29 21:32:37 2007  Masaki Suketa  <masaki.suketa@nifty.ne.jp>
 
 	* ext/win32ole/win32ole.c: add WIN32OLE.locale=, WIN32OLE.locale,
diff --git a/tool/compile.rb b/tool/compile.rb
index 5798b81139..66960f9851 100644
--- a/tool/compile.rb
+++ b/tool/compile.rb
@@ -14,10 +14,10 @@ OutputCompileOption = {
 }
 
 def compile_to_rb infile, outfile
-  iseq = YARVCore::InstructionSequence.compile_file(infile, OutputCompileOption)
+  iseq = VM::InstructionSequence.compile_file(infile, OutputCompileOption)
 
   open(outfile, 'w'){|f|
-    f.puts "YARVCore::InstructionSequence.load(" +
+    f.puts "VM::InstructionSequence.load(" +
            "Marshal.load(<<EOS____.unpack('m*')[0])).eval"
     f.puts [Marshal.dump(iseq.to_a)].pack('m*')
     f.puts "EOS____"
@@ -25,7 +25,7 @@ def compile_to_rb infile, outfile
 end
 
 def compile_to_rbc infile, outfile, type
-  iseq = YARVCore::InstructionSequence.compile_file(infile, OutputCompileOption)
+  iseq = VM::InstructionSequence.compile_file(infile, OutputCompileOption)
 
   case type
   when 'm'