2008-08-05  Vincent Celier  <celier@adacore.com>

	* a-wtdeio.adb (Put (Current_Output)): Use Fore in the call to Put
	(File).
	
	* a-ztdeio.adb: Ditto.

From-SVN: r138710