diff --git a/tests/Bots/StoreService/NamesLateCreditTests.hs b/tests/Bots/StoreService/NamesLateCreditTests.hs
index 94163bd7f9..5ae72330fc 100644
--- a/tests/Bots/StoreService/NamesLateCreditTests.hs
+++ b/tests/Bots/StoreService/NamesLateCreditTests.hs
@@ -639,7 +639,10 @@ testConcurrentCredits = withServiceStores $ \open -> do
   st <- open
   other <- open
   withLateOn st $ \l -> do
-    let due r = closedOrder l r False >> settleAt l r (SigClosed (btcPaid lateUnits lateUnits)) (at 70) `shouldReturn` Right ISExpired
+    let due :: Text -> IO ()
+        due r = do
+          closedOrder l r False
+          settleAt l r (SigClosed (btcPaid lateUnits lateUnits)) (at 70) `shouldReturn` Right ISExpired
     forM_ [1 .. rounds] $ \n -> do
       let r = "x" <> T.pack (show n)
       due r