[Fox] Critical bug with passing a parameter with the open array type

Critical bug with passing a parameter with the open array type:

MODULE TestBug;

TYPE
	Set = ARRAY 4 OF SET;
	Ptr = POINTER TO RECORD END;

PROCEDURE Test(p: ANY; VAR s: ARRAY OF Set);
BEGIN
	TRACE(p);
END Test;

PROCEDURE Do*;
VAR
	ptr : Ptr;
	set : ARRAY 1 OF Set;
BEGIN
	ptr := NEW Ptr();
	TRACE(ptr);
	Test(ptr, set);
END Do;

END TestBug.

TestBug.Do~

System.Free TestBug~

Decoder.Open TestBug~