diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 960c57ca92b048da0d8cf956e15e0e428c98128b..ea94ceaa3f1036870477370f779a9d8bb3513a16 100644
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,10 @@
+2007-04-07  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
+
+	PR testsuite/31369
+	* testsuite/libgomp.c++/c++.exp: Don't use concat when setting
+	ld_library_path.
+	* testsuite/libgomp.fortran/fortran.exp: Likewise.
+
 2007-04-04  Jakub Jelinek  <jakub@redhat.com>
 
 	* libgomp.h (gomp_cpu_affinity, gomp_cpu_affinity_len): New extern
diff --git a/libgomp/testsuite/libgomp.c++/c++.exp b/libgomp/testsuite/libgomp.c++/c++.exp
index 213ce029ec7dcb4ce85ae6b15a2bc6d00de56a05..f11482c7315ffc86395e8feaf3fb57879ec94e09 100644
--- a/libgomp/testsuite/libgomp.c++/c++.exp
+++ b/libgomp/testsuite/libgomp.c++/c++.exp
@@ -28,7 +28,7 @@ if { $lang_test_file_found } {
     # Gather a list of all tests.
     set tests [lsort [glob -nocomplain $srcdir/$subdir/*.C]]
 
-    set ld_library_path [concat $always_ld_library_path ":${blddir}/${lang_library_path}"]
+    set ld_library_path "$always_ld_library_path:${blddir}/${lang_library_path}"
     set_ld_library_path_env_vars
 
     # Main loop.
diff --git a/libgomp/testsuite/libgomp.fortran/fortran.exp b/libgomp/testsuite/libgomp.fortran/fortran.exp
index a28133a7a7fe75a01b931383b5b05cb79e265f6b..ec0f878c82195803699e2033dce30f31e3373530 100644
--- a/libgomp/testsuite/libgomp.fortran/fortran.exp
+++ b/libgomp/testsuite/libgomp.fortran/fortran.exp
@@ -12,7 +12,7 @@ if [file exists "${blddir}/${lang_test_file}"] {
     # Gather a list of all tests.
     set tests [lsort [find $srcdir/$subdir *.\[fF\]{,90,95,03}]]
 
-    set ld_library_path [concat $always_ld_library_path ":${blddir}/${lang_library_path}"]
+    set ld_library_path "$always_ld_library_path:${blddir}/${lang_library_path}"
     set_ld_library_path_env_vars
 
     # Main loop.