diff --git a/testsuite/tests/concurrent/should_run/T9379.hs b/testsuite/tests/concurrent/should_run/T9379.hs
index 235b2aa58e27262bff785f46538d9f8a4b595a6c..49e6d1eaedfe156ebb0f3b069847f3f05b41dabc 100644
--- a/testsuite/tests/concurrent/should_run/T9379.hs
+++ b/testsuite/tests/concurrent/should_run/T9379.hs
@@ -1,6 +1,6 @@
 import Control.Exception
 import Control.Concurrent
-import GHC.Conc
+import Control.Concurrent.STM
 import Foreign.StablePtr
 
 main :: IO ()
@@ -10,8 +10,6 @@ main = do
   t <- mask_ $ forkIO (blockSTM tv)
   killThread t
 
-check b = if b then return () else retry
-
 blockSTM :: TVar Bool -> IO ()
 blockSTM tv = do
   atomically $ do