diff --git a/messages/uniworx/categories/news/de-de-formal.msg b/messages/uniworx/categories/news/de-de-formal.msg
index 21c4114b0..e14d93922 100644
--- a/messages/uniworx/categories/news/de-de-formal.msg
+++ b/messages/uniworx/categories/news/de-de-formal.msg
@@ -15,7 +15,7 @@ NoUpcomingSheetDeadlines: Keine anstehenden Übungsblätter
 NoUpcomingExams difftime@Text: In den nächsten #{difftime} gibt es keine Prüfungen oder ablaufende Prüfungsanmeldungen in Ihren Kursen
 CourseParticipant: Teilnehmer:in
 
-NewsActiveAllocations: Dozenteninformationen zu aktiven Zentralanmeldungen
+NewsActiveAllocations: Daten zu aktiven Zentralanmeldungen für Dozenten
 NewsActiveAllocationsPlaces: Plätze
 NewsActiveAllocationsApplicants: Bewerber
 NewsActiveAllocationsPlacementsMade: Zugeteilte Plätze
diff --git a/messages/uniworx/categories/news/en-eu.msg b/messages/uniworx/categories/news/en-eu.msg
index 6d3ad0d65..5d268c72f 100644
--- a/messages/uniworx/categories/news/en-eu.msg
+++ b/messages/uniworx/categories/news/en-eu.msg
@@ -15,7 +15,7 @@ NoUpcomingSheetDeadlines: No upcoming sheets
 NoUpcomingExams difftime: No exams for your courses occur or allow registration in the next #{difftime}
 CourseParticipant: Participant
 
-NewsActiveAllocations: Lecturer-information on active allocations
+NewsActiveAllocations: Information on active allocations for lecturers
 NewsActiveAllocationsPlaces: Places
 NewsActiveAllocationsApplicants: Applicants
 NewsActiveAllocationsPlacementsMade: Placements made
diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs
index a75b4f3f4..c6c0d4ffb 100644
--- a/test/Database/Fill.hs
+++ b/test/Database/Fill.hs
@@ -1105,8 +1105,8 @@ fillDb = do
     , allocationOverrideDeregister = Just $ termTime True Summer 1 False Monday toMidnight
     , allocationMatchingSeed = aSeedFunc
     }
-  insert_ $ AllocationCourse funAlloc pmo 100 Nothing
-  insert_ . AllocationCourse funAlloc ffp 2 . Just $ 2300 `addUTCTime` now
+  insert_ $ AllocationCourse funAlloc pmo 100 Nothing Nothing
+  insert_ $ AllocationCourse funAlloc ffp 2 (Just $ 2300 `addUTCTime` now) Nothing
 
   void . insertMany $ map (\(u, pState) -> CourseParticipant ffp u now (Just funAlloc) pState)
     [ (svaupel, CourseParticipantInactive False)
@@ -1274,7 +1274,7 @@ fillDb = do
       , courseDeregisterNoShow = False
       }
     insert_ $ CourseEdit gkleen now cid
-    void . insert' . AllocationCourse bigAlloc cid minCap $ Just substitutesUntil
+    void . insert' $ AllocationCourse bigAlloc cid minCap (Just substitutesUntil) Nothing
     -- void . insert' $ Lecturer gkleen cid CourseLecturer
     return cid