load_structure with whitespace(preserve) still destroys some whitespace

[thetrime]

For example,

	String = "<foo>A&#13;\ntest</foo>",
	open_string(String, Read),
	load_structure(Read, XML, [space(preserve)]),
	close(Read),
	XML = [element(foo, _, [Data])],
	atom_codes(Data, Codes),
	writeln(Codes).

produces

	[65,10,116,101,115,116]

despite the input document having \r\n explicitly in it. This is normally not a problem (after all, no one has complained for 15 years), but when you're signing the document, every byte matters.