diff --git a/ChangeLog b/ChangeLog
index 6a0b147f27..31ebf25529 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,11 @@
+Fri Oct 13 02:42:00 2006  Akinori MUSHA  <knu@iDaemons.org>
+
+	* ext/digest/digest.c (rb_digest_base_equal): Should call digest()
+	  of a subclass instead of the one defined in the base class.
+
 Fri Oct 13 02:30:12 2006  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
-[]	* lib/test/unit/collector/dir.rb (Collector::Dir#collect): prepend
+	* lib/test/unit/collector/dir.rb (Collector::Dir#collect): prepend
 	  base directory to load path.
 
 	* lib/test/unit/collector/dir.rb (Collector::Dir#collect_file): should
diff --git a/ext/digest/digest.c b/ext/digest/digest.c
index b8144f3706..2cd46590ae 100644
--- a/ext/digest/digest.c
+++ b/ext/digest/digest.c
@@ -376,8 +376,8 @@ rb_digest_base_equal(VALUE self, VALUE other)
     klass = rb_obj_class(self);
 
     if (rb_obj_class(other) == klass) {
-        str1 = rb_digest_base_digest(self);
-        str2 = rb_digest_base_digest(other);
+        str1 = rb_funcall(self, id_digest, 0);
+        str2 = rb_funcall(other, id_digest, 0);
     } else {
         StringValue(other);
         str2 = other;