@@ -284,8 +284,8 @@ ppTopElement = ("<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n" ++) . unEntity .
284284 let (ds,ys) = break (==';') xs
285285 rest = drop 1 ys
286286 in case reads ('\'':'\\':ds ++ "'") of
287− ((x,_):_) | x > '\127' -> x : unEntity rest
288− _ -> ('&':'#':ds) ++ ";" ++ unEntity rest
287+ ((x,_):_) -> x : unEntity rest
288+ _ -> '&':'#':unEntity xs
289289 unEntity (x:xs) = x : unEntity xs
290290
291291imageTypeOf :: FilePath -> Maybe String