diff --git a/test/Handler/Utils/SubmissionSpec.hs b/test/Handler/Utils/SubmissionSpec.hs
index 32aba67df..3e05115dc 100644
--- a/test/Handler/Utils/SubmissionSpec.hs
+++ b/test/Handler/Utils/SubmissionSpec.hs
@@ -162,7 +162,7 @@ spec = withApp . describe "Submission distribution" $ do
     distributionExample
       (return [ (n, loads) | n <- ns' ])
       (\subs corrs -> do
-          tutSubmissions <- liftIO $ getRandomR (1,50)
+          tutSubmissions <- liftIO $ getRandomR (5,10)
           subs' <- liftIO $ shuffleM subs
           forM_ (take tutSubmissions subs') $ \(Entity subId Submission{..}) -> do
             Entity _ SheetCorrector{..} <- liftIO $ uniform corrs