diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index d93e3190b..dcdaad474 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -247,6 +247,7 @@ escapeLexer = try $ do
     font <- choice
           [ S.singleton <$> letterFontKind
           , char '(' >> anyChar >> anyChar >> return (S.singleton Regular)
+          , char 'S' >> return (S.singleton Regular)
           , try lettersFont
           , digit >> return (S.singleton Regular)
           ]