diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog
index 75716f6dc1..e54d285b4c 100644
--- a/ld/testsuite/ChangeLog
+++ b/ld/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-18  Hans-Peter Nilsson  <hp@axis.com>
+
+	* ld-elfcomm/elfcomm.exp (dump_common1): Use $READELF, not plain
+	readelf as found using default path.
+
 2003-06-18  Alan Modra  <amodra@bigpond.net.au>
 
 	* lib/ld-lib.exp (default_ld_simple_link): Trim ld parms before
diff --git a/ld/testsuite/ld-elfcomm/elfcomm.exp b/ld/testsuite/ld-elfcomm/elfcomm.exp
index 80ede642aa..e5bd29b62f 100644
--- a/ld/testsuite/ld-elfcomm/elfcomm.exp
+++ b/ld/testsuite/ld-elfcomm/elfcomm.exp
@@ -41,9 +41,10 @@ if { [which $CC] == 0 } {
 
 proc dump_common1 { testname } {
     global exec_output
+    global READELF
 
-    send_log "readelf -s tmpdir/common1.o | grep foo\n"
-    catch "exec readelf -s tmpdir/common1.o | grep foo" exec_output
+    send_log "$READELF -s tmpdir/common1.o | grep foo\n"
+    catch "exec $READELF -s tmpdir/common1.o | grep foo" exec_output
     if { ![regexp "(\[ 	\]*)(\[0-9\]+):(\[ 	\]*)(\[0\]*)80(\[ 	\]+)4(\[ 	\]+)OBJECT(\[ 	\]+)GLOBAL(\[ 	\]+)DEFAULT(\[ 	\]+)COM(\[ 	\]+)_?foo2" $exec_output]
  	 || ![regexp "(\[ 	\]*)(\[0-9\]+):(\[ 	\]*)(\[0-9\]+)(\[ 	\]+)21(\[ 	\]+)OBJECT(\[ 	\]+)GLOBAL(\[ 	\]+)DEFAULT(\[ 	\]+)(\[0-9\]+)(\[ 	\]+)_?foo1" $exec_output] } {
 	send_log "$exec_output\n"