diff --git a/pugs-compat.cabal b/pugs-compat.cabal
--- a/pugs-compat.cabal
+++ b/pugs-compat.cabal
@@ -1,5 +1,5 @@
 Name           : pugs-compat
-Version        : 0.0.6.20120203
+Version        : 0.0.6.20120229
 Build-type     : Simple
 Category       : Pugs
 License        : BSD3
diff --git a/src/Pugs/Compat/Monads.hs b/src/Pugs/Compat/Monads.hs
--- a/src/Pugs/Compat/Monads.hs
+++ b/src/Pugs/Compat/Monads.hs
@@ -27,7 +27,7 @@
 import System.IO (hPutStrLn, stderr)
 import System.IO.Unsafe
 import Control.Exception (Exception(..))
-import Control.Concurrent.STM
+import Control.Concurrent.STM (STM, atomically, TVar, writeTVar, readTVar)
 import Control.Monad.Trans (MonadIO(..))
 import qualified Control.Exception (catch, evaluate)
 
@@ -100,7 +100,7 @@
      -> m a     -- ^ Result of the actual action
 finallyM ma mb = do
     r <- ma
-    mb
+    _ <- mb
     return r
 
 internalError :: String -> a