[cvs-nhc98] patch applied (hat): Change ' foldr (++) []' to ' concat' .