diff --git a/src/Handler/Utils/Exam.hs b/src/Handler/Utils/Exam.hs
index 74188ef0f..5b441f8ff 100644
--- a/src/Handler/Utils/Exam.hs
+++ b/src/Handler/Utils/Exam.hs
@@ -660,8 +660,10 @@ examAutoOccurrence (hash -> seed) rule ExamAutoOccurrenceConfig{..} occurrences
                     increase :: [CI Char] -> [CI Char]
                     increase [] = []
                     increase (c:cs)
-                      | nextChar == head alphabet
+                      | nextChar == head alphabet, rule == ExamRoomMatriculation
                       = nextChar : increase cs
+                      | nextChar == head alphabet
+                      = increase cs
                       | otherwise
                       = nextChar : cs
                       where