runtime trap "index out of range" -- INCL/EXCL for SET8/SET16 (x86)

MODULE TestSet8;
	PROCEDURE Do*;
	VAR pars: SET8;
	BEGIN
		INCL(pars, 7);
	END Do;
END TestSet8.

TestSet8.Do~
Decoder.Open TestSet8~