diff --git a/src/Network/XMPP/Monad.hs b/src/Network/XMPP/Monad.hs
index d3a1108..163d091 100644
--- a/src/Network/XMPP/Monad.hs
+++ b/src/Network/XMPP/Monad.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE OverloadedStrings #-}
 
 module Network.XMPP.Monad where
@@ -135,7 +136,7 @@ xmppNewSession action = do
 xmppKillConnection :: XMPPConMonad ()
 xmppKillConnection = do
     cc <- gets sCloseConnection
-    liftIO cc
+    void . liftIO $ (Ex.try cc :: IO (Either Ex.SomeException ()))
     put xmppZeroConState
 
 xmppSendIQ' iqID to tp lang body = do