diff --git a/src/Reprinting/Typeset.hs b/src/Reprinting/Typeset.hs
index 86f7b53cf..83abac0e2 100644
--- a/src/Reprinting/Typeset.hs
+++ b/src/Reprinting/Typeset.hs
@@ -16,6 +16,7 @@ typesetting :: Monad m => ProcessT m Splice (Doc a)
 typesetting = auto step
 
 step :: Splice -> Doc a
+step (Unhandled _ _)      = mempty -- TODO: Do we drop uhandled splices at this point?
 step (Original t  )       = pretty t
 step (Insert _ _ t)       = pretty t
 step (Directive SoftWrap) = softline