diff --git a/Network/Socket/Syscall.hs b/Network/Socket/Syscall.hs
index c7494b49..c662d04d 100644
--- a/Network/Socket/Syscall.hs
+++ b/Network/Socket/Syscall.hs
@@ -6,9 +6,7 @@ module Network.Socket.Syscall where
 
 import Foreign.Marshal.Utils (with)
 import qualified Control.Exception as E
-# if defined(mingw32_HOST_OS)
 import System.IO.Error (catchIOError)
-#endif
 
 #if defined(mingw32_HOST_OS)
 import Control.Exception (bracket)
@@ -123,7 +121,7 @@ socket family stype protocol = E.bracketOnError create c_close $ \fd -> do
 
     setDontFragment s = when (family == AF_INET) $
 #if HAVE_DECL_IP_DONTFRAG || HAVE_DECL_IP_MTU_DISCOVER
-      setSocketOption s DontFragment 1
+      setSocketOption s DontFragment 1 `catchIOError` \_ -> return ()
 #else
       -- do nothing
       return ()