diff --git a/src/Handler/Info/TH.hs b/src/Handler/Info/TH.hs
index 9fc0e72e4..d8e354dcf 100644
--- a/src/Handler/Info/TH.hs
+++ b/src/Handler/Info/TH.hs
@@ -16,7 +16,7 @@ glossaryTerms :: FilePath -> Q Exp
 glossaryTerms basename = do
   translationsAvailable <- i18nWidgetFilesAvailable' basename
   let terms = Map.mapWithKey (\k _ -> "Msg" <> unPathPiece k) translationsAvailable
-  [e|Map.fromList $(listE . map (\(int, msg) -> tupE [litE . stringL $ repack int, conE $ mkName msg]) $ Map.toList terms)|]
+  [e|Map.fromList $(listE . map (\(int, msg) -> tupE [litE . stringL $ repack int, [e|SomeMessage $(conE $ mkName msg)|]]) $ Map.toList terms)|]
   where
     unPathPiece :: Text -> String
     unPathPiece = repack . mconcat . map (over _head Char.toUpper) . Text.splitOn "-"