From 4dd9345618b9bf6c2bfdcead01a83d18e29d8d8e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 25 Jul 2007 12:55:03 +0000
Subject: [PATCH] fix mode mask for mkdir

svn: r6956
---
 src/mzscheme/src/file.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/file.c b/src/mzscheme/src/file.c
index 36f155c507..228360117a 100644
--- a/src/mzscheme/src/file.c
+++ b/src/mzscheme/src/file.c
@@ -4986,7 +4986,7 @@ static Scheme_Object *make_directory(int argc, Scheme_Object *argv[])
   while (1) {
     if (!MSC_W_IZE(mkdir)(MSC_WIDE_PATH(filename)
 #  ifndef MKDIR_NO_MODE_FLAG
-			  , 0xFFFF
+			  , 0x0777
 # endif
 			  ))
       return scheme_void;