--| Copyright (c) 1993-2006 University of Southern California and contributors.
--| All rights reserved.
--| Your use of this work is governed under the terms of the GNU General
--| Public License version 2.

	-- To reproduce error:
	-- Compile class as is, with Ace as is.
	-- Then comment out the last 4 clusters in the Ace
	--	(access, list, storage, traversing).  Recompile.
	-- When compiler reports VTCT violation, add these 4 clusters
	--	back to the Ace (uncomment them).  Hit return.
	--	Exception trace during a pass 2.

class 
	TEST
create
	make
feature
	make
		local
			k: INTEGER;
			s: ARRAY [STRING];
		do
			from k := 1; until k > 10000 loop
				s := << "x", "x", "x" >>;
				k := k + 1;
			end
		end;
	

end