diff --git a/ChangeLog b/ChangeLog
index bcc35dc762..aa049fc7dc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+Wed Feb  4 02:12:06 2004  Tanaka Akira  <akr@m17n.org>
+
+	* file.c (test_l): fix wrong method name in document.
+	  (test_S): ditto.
+	  (test_b): ditto.
+	  (test_c): ditto.
+	  (test_suid): ditto.
+	  (test_sgid): ditto.
+	  (test_sticky): ditto.
+
 Tue Feb  3 22:36:25 2004  Kouhei Sutou  <kou@cozmixng.org>
 
 	* lib/rss/2.0.rb, lib/rss/content.rb, lib/rss/dublincore.rb,
diff --git a/file.c b/file.c
index 0b6a0c3fbd..d601b26e88 100644
--- a/file.c
+++ b/file.c
@@ -822,7 +822,7 @@ test_p(obj, fname)
 
 /*
  * call-seq:
- *   File.pipe?(file_name)   =>  true or false
+ *   File.symlink?(file_name)   =>  true or false
  *
  * Returns <code>true</code> if the named file is a symbolic link.
  */
@@ -858,7 +858,7 @@ test_l(obj, fname)
 
 /*
  * call-seq:
- *   File.pipe?(file_name)   =>  true or false
+ *   File.socket?(file_name)   =>  true or false
  *
  * Returns <code>true</code> if the named file is a socket.
  */
@@ -893,7 +893,7 @@ test_S(obj, fname)
 
 /*
  * call-seq:
- *   File.pipe?(file_name)   =>  true or false
+ *   File.blockdev?(file_name)   =>  true or false
  *
  * Returns <code>true</code> if the named file is a block device.
  */
@@ -922,7 +922,7 @@ test_b(obj, fname)
 
 /*
  * call-seq:
- *   File.pipe?(file_name)   =>  true or false
+ *   File.chardev?(file_name)   =>  true or false
  *
  * Returns <code>true</code> if the named file is a character device.
  */
@@ -1260,7 +1260,7 @@ check3rdbyte(fname, mode)
 
 /*
  * call-seq:
- *   File.pipe?(file_name)   =>  true or false
+ *   File.setuid?(file_name)   =>  true or false
  *
  * Returns <code>true</code> if the named file is a has the setuid bit set.
  */
@@ -1278,7 +1278,7 @@ test_suid(obj, fname)
 
 /*
  * call-seq:
- *   File.pipe?(file_name)   =>  true or false
+ *   File.setgid?(file_name)   =>  true or false
  *
  * Returns <code>true</code> if the named file is a has the setgid bit set.
  */
@@ -1296,7 +1296,7 @@ test_sgid(obj, fname)
 
 /*
  * call-seq:
- *   File.pipe?(file_name)   =>  true or false
+ *   File.sticky?(file_name)   =>  true or false
  *
  * Returns <code>true</code> if the named file is a has the sticky bit set.
  */