diff --git a/ChangeLog b/ChangeLog
index bb430abf5a..f2feffaae9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue May 18 09:30:25 2004  SASADA Koichi  <ko1@atdot.net>
+
+	* eval.c (rb_method_node): search cache entry first.
+
 Mon May 17 16:04:06  Hirokazu Yamamoto  <ocean@m2.ccsnet.ne.jp>
 
 	* numeric.c (flo_to_s): p 0.0 should be '0.0' not '0.0e+00'.
diff --git a/eval.c b/eval.c
index f61717b027..4b568e3354 100644
--- a/eval.c
+++ b/eval.c
@@ -452,6 +452,12 @@ rb_method_node(klass, id)
     ID id;
 {
     int noex;
+    struct cache_entry *ent;
+  
+    ent = cache + EXPR1(klass, id);
+    if (ent->mid == id && ent->klass == klass && ent->method){
+	return ent->method;
+    }
 
     return rb_get_method_body(&klass, &id, &noex);
 }