trunk/gnatmem:169888
