diff --git a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs
index 3a6788aea..df7e7445c 100644
--- a/src/Text/Pandoc/Readers/LaTeX/Parsing.hs
+++ b/src/Text/Pandoc/Readers/LaTeX/Parsing.hs
@@ -579,7 +579,10 @@ satisfyTok f = do
 peekTok :: PandocMonad m => LP m Tok
 peekTok = do
   doMacros
-  lookAhead (satisfyTok (const True))
+  TokStream _ toks <- getInput
+  case toks of
+    t : _ -> return t
+    []    -> mzero
 
 doMacros :: PandocMonad m => LP m ()
 doMacros = do