diff --git a/ChangeLog b/ChangeLog
index e289a15b78..96047190e5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Thu Mar  6 08:30:42 2008  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* object.c (rb_mod_freeze): call rb_class_name() directly.
+	  [ruby-core:15802]
+
 Thu Mar  6 04:32:06 2008  NARUSE, Yui  <naruse@ruby-lang.org>
 
 	* string.c (count_utf8_lead_bytes_with_ulong): fix shift size.
diff --git a/object.c b/object.c
index f7d96e238f..80bd1673c3 100644
--- a/object.c
+++ b/object.c
@@ -1121,7 +1121,7 @@ rb_mod_to_s(VALUE klass)
 static VALUE
 rb_mod_freeze(VALUE mod)
 {
-    rb_mod_to_s(mod);
+    rb_class_name(mod);
     return rb_obj_freeze(mod);
 }