diff --git a/Control/Monad/Trans/Resource.hs b/Control/Monad/Trans/Resource.hs
--- a/Control/Monad/Trans/Resource.hs
+++ b/Control/Monad/Trans/Resource.hs
@@ -196,9 +196,9 @@
          -> Int
          -> (Maybe (IO ()) -> IO a)
          -> IO a
-release' istate key act = E.mask $ \restore -> do
+release' istate key act = E.mask_ $ do
     maction <- I.atomicModifyIORef istate lookupAction
-    restore (act maction)
+    act maction
   where
     lookupAction rm@(ReleaseMap next rf m) =
         case IntMap.lookup key m of
diff --git a/resourcet.cabal b/resourcet.cabal
--- a/resourcet.cabal
+++ b/resourcet.cabal
@@ -1,5 +1,5 @@
 Name:                resourcet
-Version:             0.4.10.1
+Version:             0.4.10.2
 Synopsis:            Deterministic allocation and freeing of scarce resources.
 Description:
 	This package was originally included with the conduit package, and has since been split off. For more information, please see <http://www.yesodweb.com/book/conduits>.
diff --git a/test/main.hs b/test/main.hs
--- a/test/main.hs
+++ b/test/main.hs
@@ -1,12 +1,17 @@
+{-# LANGUAGE DeriveDataTypeable  #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
-import Test.Hspec
-import Control.Monad.Trans.Resource
-import Data.IORef
-import Control.Concurrent
-import Control.Monad.IO.Class (liftIO)
-import Control.Concurrent.Lifted (fork)
-import Control.Exception (handle, SomeException)
+import           Control.Concurrent
+import           Control.Concurrent.Lifted    (fork)
+import           Control.Exception            (Exception, MaskingState (MaskedInterruptible),
+                                               getMaskingState, throwIO, try)
+import           Control.Exception            (SomeException, handle)
+import           Control.Monad                (unless)
+import           Control.Monad.IO.Class       (liftIO)
+import           Control.Monad.Trans.Resource
+import           Data.IORef
+import           Data.Typeable                (Typeable)
+import           Test.Hspec
 
 main :: IO ()
 main = hspec $ do
@@ -37,6 +42,22 @@
               unprotect key
             y <- readIORef x
             y `shouldBe` 0
+    it "cleanup actions are masked #144" $ do
+        let checkMasked name = do
+                ms <- getMaskingState
+                unless (ms == MaskedInterruptible) $
+                    error $ show (name, ms)
+        runResourceT $ do
+            register (checkMasked "release") >>= release
+            register (checkMasked "normal")
+        Left Dummy <- try $ runResourceT $ do
+            register (checkMasked "exception")
+            liftIO $ throwIO Dummy
+        return ()
+
+data Dummy = Dummy
+    deriving (Show, Typeable)
+instance Exception Dummy
 
 forkHelper s fork' = describe s $ do
     it "waits for all threads" $ do