diff --git a/src/Handler/Exam/AutoOccurrence.hs b/src/Handler/Exam/AutoOccurrence.hs
index 04460a2b0..714701ff5 100644
--- a/src/Handler/Exam/AutoOccurrence.hs
+++ b/src/Handler/Exam/AutoOccurrence.hs
@@ -113,7 +113,7 @@ postEAutoOccurrenceR tid ssh csh examn = do
     let participants' = Map.fromList $ do
           (Entity uid userRec, Entity _ ExamRegistration{..}) <- participants
           return (uid, (userRec, examRegistrationOccurrence))
-        occurrences' = Map.fromList $ map (\(Entity eoId ExamOccurrence{..}) -> (eoId, view (from _examOccurrenceCapacityIso) $ fromIntegral <$> examOccurrenceCapacity)) occurrences
+        occurrences' = Map.fromList $ map (\(Entity eoId ExamOccurrence{..}) -> (eoId, _examOccurrenceCapacityIso # (fromIntegral <$> examOccurrenceCapacity))) occurrences
         autoOccurrenceResult = examAutoOccurrence eId examOccurrenceRule eaofConfig occurrences' participants'
     (eaofMapping, eaofAssignment) <- case autoOccurrenceResult of
       (Left e) -> do