diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs
index 2a845191b..7cf47ae44 100644
--- a/src/Handler/Submission.hs
+++ b/src/Handler/Submission.hs
@@ -321,5 +321,5 @@ getSubmissionDownloadArchiveR tid csh shn (ZIPArchiveName cID) = do
       Just rating' -> do
         let fileEntitySource' :: Source (YesodDB UniWorX) File
             fileEntitySource' = submissionFileSource submissionID =$= Conduit.map entityVal >> yieldM (ratingFile cID rating')
-            info = ZipInfo { zipComment = Text.encodeUtf8 . CI.foldedCase $ ciphertext (cUUID :: CryptoFileNameSubmission) }
+            info = ZipInfo { zipComment = Text.encodeUtf8 . pack . CI.foldedCase $ ciphertext (cUUID :: CryptoFileNameSubmission) }
         fileEntitySource' =$= produceZip info =$= Conduit.map toFlushBuilder