diff --git a/Network/Socket/Syscall.hs b/Network/Socket/Syscall.hs
index 439087c9..1f4a638c 100644
--- a/Network/Socket/Syscall.hs
+++ b/Network/Socket/Syscall.hs
@@ -7,13 +7,13 @@ module Network.Socket.Syscall where
 import Data.Either (isRight)
 import qualified Control.Exception as E
 import Foreign.Marshal.Utils (with)
+import System.IO.Error (catchIOError)
 
 #if defined(mingw32_HOST_OS)
 import Foreign (FunPtr)
 import Foreign.Marshal.Alloc (alloca)
 import GHC.Conc (asyncDoProc)
 import Network.Socket.Cbits
-import System.IO.Error (catchIOError)
 # if __IO_MANAGER_WINIO__ >= 2
 import qualified GHC.Event.Windows as Mgr
 import Foreign.Ptr (wordPtrToPtr)
@@ -134,7 +134,7 @@ socket family stype protocol =
 
     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 ()