strange behavior in the layout with WrapDirection attribute

I have found the following example to not work as expected.
The problem seems to come from the wrapDirection.

In this exemple if you resize the morph, the layout is refresh correctly.

I badly need it to work as expected


submorph := Morph new color: Color red;
	layoutPolicy: TableLayout new;
	listDirection: #leftToRight;
	cellInset: 10;
	vResizing: #shrinkWrap;
	hResizing: #spaceFill;
	wrapDirection: #topToBottom.
10 timesRepeat: [submorph addMorph: Morph new].
(Morph new color: Color yellow; extent: 300@500;
	layoutPolicy: TableLayout new;
	listDirection: #topToBottom;
	layoutInset: 10; cellInset: 10;
	addMorphBack: submorph;
	addMorphBack: (Morph new color: Color orange;
		vResizing: #spaceFill;
		hResizing: #spaceFill)) openInWorld