diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index d2a400c5c..eaaf18426 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -487,7 +487,9 @@ inlineToHtml opts inline =
                                             InlineMath  -> m
                                             DisplayMath -> br +++ m +++ br
                                GladTeX ->
-                                  return $ primHtml $ "<EQ>" ++ str ++ "</EQ>"
+                                  return $ case t of
+                                             InlineMath -> primHtml $ "<EQ ENV=\"math\">" ++ str ++ "</EQ>"
+                                             DisplayMath -> primHtml $ "<EQ ENV=\"displaymath\">" ++ str ++ "</EQ>"
                                MathML _ -> do
                                   let dt = if t == InlineMath
                                               then DisplayInline