@@ -613,7 +613,7 @@ checkDefined name = do
613escString :: PandocMonad m => RoffLexer m [LinePart]
613escString :: PandocMonad m => RoffLexer m [LinePart]
614escString = try $ do
614escString = try $ do
615 pos <- getPosition
615 pos <- getPosition
616− (do cs <- escapeArg
616+ (do cs <- escapeArg <|> count 1 alphaNum
617 resolveString cs pos)
617 resolveString cs pos)
618 <|> mempty <$ char 'S'
618 <|> mempty <$ char 'S'