diff --git a/src/sut/dumblog/bench/Common.hs b/src/sut/dumblog/bench/Common.hs
index f605d0c9..2b11d7b0 100644
--- a/src/sut/dumblog/bench/Common.hs
+++ b/src/sut/dumblog/bench/Common.hs
@@ -42,7 +42,7 @@ rEAD_FREQUENCY :: Int
 rEAD_FREQUENCY = 80
 
 iTERATIONS :: Int
-iTERATIONS = 10000
+iTERATIONS = 50000
 
 vALUE_TO_WRITE :: ByteString
 vALUE_TO_WRITE = LBS.pack "Dumblog"
@@ -61,7 +61,7 @@ commonMain variant io = do
   bracket (commonSetup variant io) commonTeardown (commonBenchmark clients)
   where
     nUM_OF_CLIENTS :: Int
-    nUM_OF_CLIENTS = 100
+    nUM_OF_CLIENTS = 1000
 
 commonSetup :: String -> (MVar () -> IO ()) -> IO (Async (), HttpClient)
 commonSetup msg io = do
diff --git a/src/sut/dumblog/src/Dumblog/Journal/Worker.hs b/src/sut/dumblog/src/Dumblog/Journal/Worker.hs
index 30955d27..29639805 100644
--- a/src/sut/dumblog/src/Dumblog/Journal/Worker.hs
+++ b/src/sut/dumblog/src/Dumblog/Journal/Worker.hs
@@ -60,7 +60,7 @@ worker journal metrics (WorkerInfo blocker logger snapshotFile currentVersion ev
       else do
         entries <- Journal.readManyJournalSC journal Sub1
         if null entries
-        then threadDelay 10 >> go ev s
+        then threadDelay 1 >> go ev s
         else do
           s' <- go' entries s
           go (ev + length entries) s'