diff --git a/Control/Monad/STM.hs b/Control/Monad/STM.hs
index d5c481a..780d32c 100644
--- a/Control/Monad/STM.hs
+++ b/Control/Monad/STM.hs
@@ -44,6 +44,9 @@ module Control.Monad.STM (
         check,
 #endif
         throwSTM,
+#if __GLASGOW_HASKELL__ > 1000
+        rethrowSTM,
+#endif
         catchSTM
   ) where