diff --git a/ChangeLog b/ChangeLog
index be96ace0f8..d3a90b2b9f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,12 @@
+Fri Feb  6 18:54:18 2004  akira yamada  <akira@ruby-lang.org>
+
+	* test/ruby/test_proc.rb (TestProc::test_eq): added a
+	  test.  [ruby-dev:22599]
+
 Fri Feb  6 18:26:00 2004  akira yamada  <akira@ruby-lang.org>
 
 	* test/ruby/test_proc.rb (TestProc::test_eq): added tests for
-	  Proc#==.
+	  Proc#==.  [ruby-dev:22592], [ruby-dev:22601]
 
 Fri Feb  6 10:12:06 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
diff --git a/test/ruby/test_proc.rb b/test/ruby/test_proc.rb
index 505048e6ee..23b84ed20f 100644
--- a/test/ruby/test_proc.rb
+++ b/test/ruby/test_proc.rb
@@ -77,12 +77,15 @@ class TestProc < Test::Unit::TestCase
     # [ruby-dev:22592]
     a = m(1)
     b = m(2)
-    assert_equal(false, a == b)
-    assert_equal(false, a.call == b.call)
+    assert_not_equal(a, b)
+    assert_not_equal(a.call, b.call)
+
+    # [ruby-dev:22599]
+    assert_not_equal(proc {||}, proc {|x,y|})
 
     # [ruby-dev:22601]
     a = lambda {|x| lambda {} }.call(1)
     b = lambda {}
-    assert_equal(false, a == b)
+    assert_not_equal(a, b)
   end
 end