diff --git a/src/Handler/Material.hs b/src/Handler/Material.hs
index c9199136f..2c6c98c65 100644
--- a/src/Handler/Material.hs
+++ b/src/Handler/Material.hs
@@ -360,5 +360,5 @@ getMArchiveR tid ssh csh mnm = do
         E.where_ $  materialFile E.^. MaterialFileMaterial E.==. E.val mid
         return file
       fileSource' = fileSelect .| C.map entityVal
-      zipComment = Text.encodeUtf8 $ (termToText $ unTermKey tid) <> "-" <> toPathPiece (unSchoolKey ssh <> "-" <> csh <> ":" <> mnm)
+      zipComment = Text.encodeUtf8 $ termToText (unTermKey tid) <> "-" <> toPathPiece (unSchoolKey ssh <> "-" <> csh <> ":" <> mnm)
     fileSource' .| produceZip ZipInfo{..} .| C.map toFlushBuilder