diff --git a/ChangeLog b/ChangeLog
index 68dcf3711f..93f4df5635 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,10 @@
-Fri Nov 28 19:28:18 2003  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+Fri Nov 28 19:37:56 2003  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* hash.c (env_has_value, env_index): must match exactly.
 
+	* test/ruby/test_env.rb (test_has_value, test_index): condition for
+	  aboves.
+
 Fri Nov 28 17:59:20 2003  NAKAMURA Usaku <usa@ruby-lang.org>
 
 	* test/ruby/test_env.rb: add tests for ENV.
diff --git a/test/ruby/test_env.rb b/test/ruby/test_env.rb
index 6a7fd97c23..6ae28dbbee 100644
--- a/test/ruby/test_env.rb
+++ b/test/ruby/test_env.rb
@@ -49,6 +49,7 @@ class TestEnv < Test::Unit::TestCase
   def test_has_value
     val = 'a'
     val.succ! while ENV.has_value?(val) && ENV.has_value?(val.upcase)
+    ENV['test'] = val[0...-1]
 
     assert_equal(false, ENV.has_value?(val))
     assert_equal(false, ENV.has_value?(val.upcase))
@@ -63,6 +64,7 @@ class TestEnv < Test::Unit::TestCase
   def test_index
     val = 'a'
     val.succ! while ENV.has_value?(val) && ENV.has_value?(val.upcase)
+    ENV['test'] = val[0...-1]
 
     assert_nil(ENV.index(val))
     assert_nil(ENV.index(val.upcase))