Index: src/Darcs/Util/Compat.hs
--- src/Darcs/Util/Compat.hs.orig
+++ src/Darcs/Util/Compat.hs
@@ -21,6 +21,7 @@ import System.IO.Error ( mkIOError, alreadyExistsError
 import System.Posix.Files ( stdFileMode )
 import System.Posix.IO ( openFd, closeFd,
                          defaultFileFlags, exclusive,
+                         creat,
                          OpenMode(WriteOnly) )
 
 import Darcs.Util.SignalHandler ( stdoutIsAPipe )
@@ -63,9 +64,9 @@ maybeRelink src dst =
 
 sloppyAtomicCreate :: FilePath -> IO ()
 sloppyAtomicCreate fp
-    = do fd <- openFd fp WriteOnly (Just stdFileMode) flags
+    = do fd <- openFd fp WriteOnly flags
          closeFd fd
-  where flags = defaultFileFlags { exclusive = True }
+  where flags = defaultFileFlags { exclusive = True, creat = Just stdFileMode }
 
 atomicCreate :: FilePath -> IO ()
 atomicCreate fp = withCString fp $ \cstr -> do
