@@ -278,11 +278,12 @@ runToInlines (Run rs runElems)
278278 | Just (s, _) <- rStyle rs
279279 , s `elem` codeStyles =
280280 let rPr = resolveDependentRunStyle rs
281+ codeString = code $ concatMap runElemToString runElems
281282 in
282283 return $ case rVertAlign rPr of
283− Just SupScrpt -> superscript $ code $ concatMap runElemToString runElems
284− Just SubScrpt -> subscript $ code $ concatMap runElemToString runElems
285− _ -> code $ concatMap runElemToString runElems
284+ Just SupScrpt -> superscript codeString
285+ Just SubScrpt -> subscript codeString
286+ _ -> codeString
286287 | otherwise = do
287288 let ils = concatReduce (map runElemToInlines runElems)
288289 return $ (runStyleToTransform $ resolveDependentRunStyle rs) ils