diff --git a/ChangeLog b/ChangeLog
index 098fe17a02..a210b8445f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Jan 13 01:24:17 2004  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* file.c (test_wr): Rdoc fix.  [ruby-core:02225]
+
 Tue Jan 13 01:04:37 2004  Dave Thomas  <dave@pragprog.com>
 
 	* lib/rdoc/ri/ri_paths.rb (RI::Paths): First attempt at
diff --git a/file.c b/file.c
index 94da99ae8f..b1a8131893 100644
--- a/file.c
+++ b/file.c
@@ -1015,6 +1015,14 @@ test_R(obj, fname)
     return Qtrue;
 }
 
+#ifndef S_IRUGO
+#  define S_IRUGO		(S_IRUSR | S_IRGRP | S_IROTH)
+#endif
+
+#ifndef S_IWUGO
+#  define S_IWUGO		(S_IWUSR | S_IWGRP | S_IWOTH)
+#endif
+
 /*
  * call-seq:
  *    File.world_readable?(file_name)   => fixnum or nil
@@ -1029,14 +1037,6 @@ test_R(obj, fname)
  *    sprintf("%o", m)				    # => "644"
  */
 
-#ifndef S_IRUGO
-#  define S_IRUGO		(S_IRUSR | S_IRGRP | S_IROTH)
-#endif
-
-#ifndef S_IWUGO
-#  define S_IWUGO		(S_IWUSR | S_IWGRP | S_IWOTH)
-#endif
-
 static VALUE
 test_wr(obj, fname)
     VALUE obj, fname;
@@ -1044,7 +1044,7 @@ test_wr(obj, fname)
 #ifdef S_IROTH
     struct stat st;
 
-    if (rb_stat(fname, &st) < 0) return Qfalse;
+    if (rb_stat(fname, &st) < 0) return Qnil;
     if ((st.st_mode & (S_IROTH)) == S_IROTH) {
 #ifdef __BORLANDC__
       return UINT2NUM((unsigned short)(st.st_mode &
@@ -1053,11 +1053,8 @@ test_wr(obj, fname)
       return UINT2NUM(st.st_mode & (S_IRUGO|S_IWUGO|S_IXUGO));
 #endif
     }
-    else {
-      return Qnil;
-    }
 #endif
-    return Qfalse;
+    return Qnil;
 }
 
 /*
@@ -1124,11 +1121,8 @@ test_ww(obj, fname)
       return UINT2NUM(st.st_mode & (S_IRUGO|S_IWUGO|S_IXUGO));
 #endif
     }
-    else {
-      return Qnil;
-    }
 #endif
-    return Qfalse;
+    return Qnil;
 }
 
 /*