Expected: FOXOBJECT respects KeySort

Observed: FOXOBJECT does not respect KeySort

CLEAR

STORE CREATEOBJECT("collection") TO oCollection
WITH m.oCollection  as Collection 
 .Add('key 3',CHR(3))
 .Add('key 1',CHR(1))
 .Add('key 2',CHR(2))
 .KeySort = 2
	?
	? "without FOXOBJECT"
	?
	 FOR EACH oCol IN m.oCollection
	 	? m.oCol
	 ENDFOR
	?
	? "with FOXOBJECT"
	?
	* next does not use the KeySort, then it is useless 
	FOR EACH oCol IN m.oCollection FOXOBJECT
 		? m.oCol
	ENDFOR
endwith

Fabio