--- gcc/ada/gnatlink.adb.orig	Fri Jul 29 09:03:45 2005
+++ gcc/ada/gnatlink.adb	Wed Nov 23 23:38:40 2005
@@ -123,7 +123,7 @@
    --  This table collects the arguments to be passed to compile the binder
    --  generated file.
 
-   Gcc : String_Access := Program_Name ("gcc");
+   Gcc : String_Access := Program_Name ("gnatgcc");
 
    Read_Mode  : constant String := "r" & ASCII.Nul;
 
