diff --git a/ChangeLog b/ChangeLog
index 4602c24e03..8299c10738 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Wed Jul 23 21:35:53 2008  Yusuke Endoh  <mame@tsg.ne.jp>
+
+	* test/ruby/test_dir.rb: suppress warning during test.
+
 Wed Jul 23 18:27:46 2008  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* ext/tk/{stubs,tcltklib}.c, ext/tk/tkutil/tkutil.c: fix warnings
diff --git a/test/ruby/test_dir.rb b/test/ruby/test_dir.rb
index 36d7407d92..0ea28f55d8 100644
--- a/test/ruby/test_dir.rb
+++ b/test/ruby/test_dir.rb
@@ -7,6 +7,8 @@ require 'pathname'
 class TestDir < Test::Unit::TestCase
 
   def setup
+    @verbose = $VERBOSE
+    $VERBOSE = nil
     @root = Pathname.new(Dir.mktmpdir('__test_dir__')).realpath.to_s
     @nodir = File.join(@root, "dummy")
     for i in ?a..?z
@@ -19,6 +21,7 @@ class TestDir < Test::Unit::TestCase
   end
 
   def teardown
+    $VERBOSE = @verbose
     FileUtils.remove_entry_secure @root if File.directory?(@root)
   end