class TEST
$INHERIT

create
	make

feature

	make
		do
			x := Current
		end

	x: TEST1

end