diff --git a/test/Handler/Utils/ExamSpec.hs b/test/Handler/Utils/ExamSpec.hs
index d9fdd718e..839e186f3 100644
--- a/test/Handler/Utils/ExamSpec.hs
+++ b/test/Handler/Utils/ExamSpec.hs
@@ -168,7 +168,7 @@ spec = do
                 createOccurrences acc
                     |  sum (map snd acc) < totalSpaceRequirement = do
                         Entity {entityKey, entityVal} <- Entity <$> arbitrary <*> arbitrary
-                        createOccurrences $ (entityKey, examOccurrenceCapacity entityVal) : acc
+                        createOccurrences $ (entityKey, fromIntegral $ examOccurrenceCapacity entityVal) : acc
                     | otherwise = pure acc
             Map.fromList <$> createOccurrences []
         genNudge :: [(Int, Integer)] -> Map ExamOccurrenceId Integer -> ExamOccurrenceId -> Gen (Map ExamOccurrenceId Integer)