diff --git a/cautious-file.cabal b/cautious-file.cabal
--- a/cautious-file.cabal
+++ b/cautious-file.cabal
@@ -1,5 +1,5 @@
 name:                cautious-file
-version:             0.1.3
+version:             0.1.4
 Cabal-Version:	     >= 1.6
 synopsis:            Ways to write a file cautiously, to reduce the chances of problems such as data loss due to crashes or power failures
 description:         If the posix flag is enabled, posix-specific functions are used to reduce the chance of data loss further
diff --git a/src/System/IO/Cautious.hs b/src/System/IO/Cautious.hs
--- a/src/System/IO/Cautious.hs
+++ b/src/System/IO/Cautious.hs
@@ -19,6 +19,7 @@
 import System.IO (openTempFile)
 #ifdef _POSIX
 import System.Posix.ByteLevel (writeAllL)
+import System.Posix.Files (fileMode, getFileStatus, setFdMode)
 import System.Posix.Fsync (fsync)
 import System.Posix.IO (closeFd, handleToFd)
 #else
@@ -46,6 +47,8 @@
 #ifdef _POSIX
     fd <- handleToFd handle
     writeAllL fd bs
+    st <- getFileStatus cfp
+    setFdMode fd $ fileMode st
     fsync fd
     closeFd fd
 #else