diff --git a/libraries/base/tests/AtomicModifyIORef.hs b/libraries/base/tests/AtomicModifyIORef.hs
index 3aa39394898e77698f6fb8e9c1a51697d4094185..7cd5d0c6e2fa165414de619f7505792297d81f9b 100644
--- a/libraries/base/tests/AtomicModifyIORef.hs
+++ b/libraries/base/tests/AtomicModifyIORef.hs
@@ -5,7 +5,7 @@ import Data.IORef
 main :: IO ()
 main = do
     let nThreads = 10
-        nIncrs = 10000000
+        nIncrs = 10000
 
     ref <- newIORef (42 :: Int)
     dones <- replicateM nThreads $ do
diff --git a/libraries/base/tests/AtomicModifyIORef.stdout b/libraries/base/tests/AtomicModifyIORef.stdout
index 3f60432fe38b79c1d0d3983cade93243e90acb5b..1ddf892b784fddf7341bd3733995a0cdd2b0dfb2 100644
--- a/libraries/base/tests/AtomicModifyIORef.stdout
+++ b/libraries/base/tests/AtomicModifyIORef.stdout
@@ -8,4 +8,4 @@
 .
 .
 .
-100000042
+100042