diff --git a/src/Text/Pandoc/Writers/JATS.hs b/src/Text/Pandoc/Writers/JATS.hs
index 5e1b3164b..71a45bf77 100644
--- a/src/Text/Pandoc/Writers/JATS.hs
+++ b/src/Text/Pandoc/Writers/JATS.hs
@@ -381,14 +381,16 @@ inlineToJATS _ (Math t str) = do
let tagtype = case t of
DisplayMath -> "disp-formula"
InlineMath -> "inline-formula"
- return $ inTagsSimple tagtype $
- case res of
- Right r -> text $ Xml.ppcElement conf
- $ fixNS r
- Left _ -> inTagsSimple "tex-math"
+ let rawtex = inTagsSimple "tex-math"
$ text "
text str <>
text "]]>"
+ return $ inTagsSimple tagtype $
+ case res of
+ Right r -> inTagsSimple "alternatives" $
+ cr <> rawtex $$
+ (text $ Xml.ppcElement conf $ fixNS r)
+ Left _ -> rawtex
inlineToJATS _ (Link _attr [Str t] ('m':'a':'i':'l':'t':'o':':':email, _))
| escapeURI t == email =
return $ inTagsSimple "email" $ text (escapeStringForXML email)
diff --git a/test/writer.jats b/test/writer.jats
index ae72133a8..f498711f0 100644
--- a/test/writer.jats
+++ b/test/writer.jats
@@ -1048,39 +1048,52 @@ These should not be escaped: \$ \\ \> \[ \{
- 2+2=4
+
+
+ 2+2=4
- x∈y
+
+
+ x∈y
- α∧ω
+
+
+ α∧ω
- 223
+
+
+ 223
- p-Tree
+
+
+ p-Tree
- Here’s some display math:
- ddxf(x)=limh→0f(x+h)−f(x)h
+ Here’s some display math:
+
+ ddxf(x)=limh→0f(x+h)−f(x)h
Here’s one that has a line break in it:
- α+ω×x2.
+
+
+ α+ω×x2.