diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index aef566ae1d4..11b3bdab444 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2007-01-23  Richard Guenther  <rguenther@suse.de>
+
+	PR testsuite/30560
+	* ada/acats/run_acats: Do not call gnatmake or gnatchop
+	with full path.
+
 2007-01-22  Richard Guenther  <rguenther@suse.de>
 
 	PR tree-optimization/30038
diff --git a/gcc/testsuite/ada/acats/run_acats b/gcc/testsuite/ada/acats/run_acats
index b3b74cca2df..05f3ff57df5 100755
--- a/gcc/testsuite/ada/acats/run_acats
+++ b/gcc/testsuite/ada/acats/run_acats
@@ -40,7 +40,7 @@ echo '#!/bin/sh' > host_gnatchop
 echo PATH=`dirname $host_gnatchop`:'$PATH' >> host_gnatchop
 echo unset ADA_INCLUDE_PATH ADA_OBJECTS_PATH GCC_EXEC_PREFIX >> host_gnatchop
 echo export PATH >> host_gnatchop
-echo exec $host_gnatchop '"$@"' >> host_gnatchop
+echo exec gnatchop '"$@"' >> host_gnatchop
 
 chmod +x host_gnatchop
 
@@ -48,7 +48,7 @@ echo '#!/bin/sh' > host_gnatmake
 echo PATH=`dirname $host_gnatmake`:'$PATH' >> host_gnatmake
 echo unset ADA_INCLUDE_PATH ADA_OBJECTS_PATH GCC_EXEC_PREFIX >> host_gnatmake
 echo export PATH >> host_gnatmake
-echo exec $host_gnatmake '"$@"' >> host_gnatmake
+echo exec gnatmake '"$@"' >> host_gnatmake
 
 chmod +x host_gnatmake