diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs
index d2d5a6138..fe52740d4 100644
--- a/src/Handler/Submission.hs
+++ b/src/Handler/Submission.hs
@@ -124,7 +124,7 @@ submissionUserInvitationConfig = InvitationConfig{..}
 
 makeSubmissionForm :: CourseId -> Maybe SubmissionId -> UploadMode -> SheetGroup -> Bool -> Set (Either UserEmail UserId) -> Form (Maybe (Source Handler File), Set (Either UserEmail UserId))
 makeSubmissionForm cid msmid uploadMode grouping isLecturer prefillUsers = identifyForm FIDsubmission . renderAForm FormStandard $ (,)
-  <$> fileUploadForm (is _Just msmid) (fslI . bool MsgSubmissionFile MsgSubmissionArchive) uploadMode
+  <$> fileUploadForm (not isLecturer && is _Nothing msmid) (fslI . bool MsgSubmissionFile MsgSubmissionArchive) uploadMode
   <*> wFormToAForm submittorsForm
   where
     miCell' :: Markup -> Either UserEmail UserId -> Widget
diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index 7dc44c04a..1571b13af 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -701,7 +701,7 @@ fileUploadForm isReq mkFs = \case
   NoUpload
     -> pure Nothing
   UploadAny{..}
-    -> (bool (\f fs _ -> Just <$> areq f fs Nothing) aopt isReq) (zipFileField unpackZips extensionRestriction) (mkFs unpackZips) Nothing
+    -> bool aopt (\f fs _ -> Just <$> areq f fs Nothing) isReq (zipFileField unpackZips extensionRestriction) (mkFs unpackZips) Nothing
   UploadSpecific{..}
     -> mergeFileSources <$> sequenceA (map specificFileForm . Set.toList $ toNullable specificFiles)
   where