diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs
index ed075c08c..01b8d6a78 100644
--- a/src/Handler/Submission.hs
+++ b/src/Handler/Submission.hs
@@ -61,7 +61,7 @@ makeSubmissionForm :: Maybe SubmissionId -> Bool -> SheetGroup -> [Text] -> Form
 makeSubmissionForm msmid unpackZips grouping buddies = identForm FIDsubmission $ \html -> do
     flip (renderAForm FormStandard) html $ (,)
       <$> (bool (\f fs _ -> Just <$> areq f fs Nothing) aopt $ isJust msmid) (zipFileField unpackZips) (fsm $ bool MsgSubmissionFile MsgSubmissionArchive unpackZips) Nothing
-      <*> (catMaybes <$> sequenceA [bool aforced' aopt editableBuddies textField (fsm $ MsgSubmissionMember g) buddy
+      <*> (catMaybes <$> sequenceA [bool aforced' aopt editableBuddies textField (fslpI (MsgSubmissionMember g) "user@campus.lmu.de" ) buddy
                                     | g <- [1..(max groupNr $ length buddies)]             -- groupNr might have decreased meanwhile
                                     | buddy <- map (Just . Just) buddies ++ repeat Nothing -- show current buddies
                                     ])
diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index 9182d4c34..9d5684a50 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -385,8 +385,8 @@ fsb :: Text -> FieldSettings site -- DEPRECATED
 fsb = bfs -- Just to avoid annoying Ambiguous Type Errors
 
 fsl ::  Text -> FieldSettings UniWorX
-fsl label =
-  FieldSettings { fsLabel    = (SomeMessage label)
+fsl lbl =
+  FieldSettings { fsLabel    = (SomeMessage lbl)
                 , fsTooltip  = Nothing
                 , fsId       = Nothing
                 , fsName     = Nothing
@@ -394,8 +394,8 @@ fsl label =
   }
 
 fslp ::  Text -> Text -> FieldSettings UniWorX
-fslp label placeholder =
-  FieldSettings { fsLabel    = (SomeMessage label)
+fslp lbl placeholder =
+  FieldSettings { fsLabel    = (SomeMessage lbl)
                 , fsTooltip  = Nothing
                 , fsId       = Nothing
                 , fsName     = Nothing
@@ -403,8 +403,8 @@ fslp label placeholder =
   }
 
 fslpI :: RenderMessage UniWorX msg => msg -> Text -> FieldSettings UniWorX
-fslpI label placeholder =
-  FieldSettings { fsLabel    = (SomeMessage label)
+fslpI lbl placeholder =
+  FieldSettings { fsLabel    = (SomeMessage lbl)
                 , fsTooltip  = Nothing
                 , fsId       = Nothing
                 , fsName     = Nothing