--- Dist/xe_utils.adb.orig	Mon Nov 13 11:33:17 2000
+++ Dist/xe_utils.adb	Mon Nov 13 11:33:22 2000
@@ -630,7 +630,7 @@
       Obj_Suffix           := Str_To_Id (Get_Object_Suffix.all);
       Exe_Suffix           := Str_To_Id (Get_Executable_Suffix.all);
 
-      Gcc             := Locate ("gcc");
+      Gcc             := Locate ("adagcc");
       Link            := Locate ("ln", False);
       Gnatbind        := Locate ("gnatbind");
       Gnatlink        := Locate ("gnatlink");