diff --git a/ChangeLog b/ChangeLog
index 7b90942d1d..ce2a38e2ab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Feb 19 17:10:25 2002  Nobuyoshi Nakada  <nobu.nakada@nifty.ne.jp>
+
+	* file.c (path_check_1): do not fail on world writable *parent*
+	  directories too.
+
 Tue Feb 19 15:51:41 2002  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* file.c (path_check_1): do not warn on world writable *parent*
diff --git a/file.c b/file.c
index 7fbe26001b..1b0ad93a57 100644
--- a/file.c
+++ b/file.c
@@ -2307,11 +2307,12 @@ path_check_1(path)
 #ifndef S_IWOTH
 # define S_IWOTH 002
 #endif
-	if (stat(p0, &st) == 0 && S_ISDIR(st.st_mode) && (st.st_mode & S_IWOTH)) {
+	if (stat(p0, &st) == 0 && S_ISDIR(st.st_mode) && (st.st_mode & S_IWOTH)
 #ifdef S_ISVTX
-	    if (!p || !(st.st_mode & S_ISVTX))
+	    && (!p || !(st.st_mode & S_ISVTX))
 #endif
-		rb_warn("Unsecure world writeable dir %s , mode 0%o", p0, st.st_mode);
+	    ) {
+	    rb_warn("Unsecure world writeable dir %s , mode 0%o", p0, st.st_mode);
 	    if (p) *p = '/';
 	    return 0;
 	}