@@ -399,7 +399,7 @@ inlineToICML opts style (Subscript lst) = inlinesToICML opts (subscriptName:styl
399inlineToICML opts style (SmallCaps lst) = inlinesToICML opts (smallCapsName:style) lst
399inlineToICML opts style (SmallCaps lst) = inlinesToICML opts (smallCapsName:style) lst
400inlineToICML opts style (Quoted SingleQuote lst) = inlinesToICML opts style $ [Str "‘"] ++ lst ++ [Str "’"]
400inlineToICML opts style (Quoted SingleQuote lst) = inlinesToICML opts style $ [Str "‘"] ++ lst ++ [Str "’"]
401inlineToICML opts style (Quoted DoubleQuote lst) = inlinesToICML opts style $ [Str "“"] ++ lst ++ [Str "”"]
401inlineToICML opts style (Quoted DoubleQuote lst) = inlinesToICML opts style $ [Str "“"] ++ lst ++ [Str "”"]
402−inlineToICML opts style (Cite _ lst) = footnoteToICML opts style [Para lst]
402+inlineToICML opts style (Cite _ lst) = inlinesToICML opts style lst
403inlineToICML _ style (Code _ str) = charStyle (codeName:style) $ text $ escapeStringForXML str
403inlineToICML _ style (Code _ str) = charStyle (codeName:style) $ text $ escapeStringForXML str
404inlineToICML _ style Space = charStyle style space
404inlineToICML _ style Space = charStyle style space
405inlineToICML _ style LineBreak = charStyle style $ text lineSeparator
405inlineToICML _ style LineBreak = charStyle style $ text lineSeparator