@@ -508,7 +508,8 @@ blockToLaTeX (RawBlock f x)
508508blockToLaTeX (BulletList []) = return empty -- otherwise latex error
509509blockToLaTeX (BulletList lst) = do
510510 incremental <- gets stIncremental
511− let inc = if incremental then "[<+->]" else ""
511+ beamer <- writerBeamer `fmap` gets stOptions
512+ let inc = if beamer && incremental then "[<+->]" else ""
512513 items <- mapM listItemToLaTeX lst
513514 let spacing = if isTightList lst
514515 then text "\\tightlist"