@@ -399,7 +399,7 @@ inlineToICML opts style (Subscript lst) = inlinesToICML opts (subscriptName:styl
399399inlineToICML opts style (SmallCaps lst) = inlinesToICML opts (smallCapsName:style) lst
400400inlineToICML opts style (Quoted SingleQuote lst) = inlinesToICML opts style $ [Str "‘"] ++ lst ++ [Str "’"]
401401inlineToICML 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
403403inlineToICML _ style (Code _ str) = charStyle (codeName:style) $ text $ escapeStringForXML str
404404inlineToICML _ style Space = charStyle style space
405405inlineToICML _ style LineBreak = charStyle style $ text lineSeparator