diff --git a/libio/testsuite/ChangeLog b/libio/testsuite/ChangeLog
index 0c443afb34b1..bd3f28872051 100644
--- a/libio/testsuite/ChangeLog
+++ b/libio/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+Sat Jun 27 23:59:35 1998  Carlo Wood  <carlo@runaway.xs4all.nl>
+
+	* lib/libio.exp (test_libio): Reset ld_library_path before appending
+	the same path(s) again.
+
 Sat Sep  6 00:49:31 1997  Brendan Kehoe  <brendan@lisa.cygnus.com>
 
 	* lib/libio.exp (test_libio): Lose -L.. before -lio, may as well
diff --git a/libio/testsuite/lib/libio.exp b/libio/testsuite/lib/libio.exp
index 71639e181738..d9f01b449fc9 100644
--- a/libio/testsuite/lib/libio.exp
+++ b/libio/testsuite/lib/libio.exp
@@ -48,13 +48,15 @@ proc test_libio { srcfile compile_args inpfile resultfile exec_args } {
     global LIBIO
     global srcdir subdir objdir
     global TOOL_OPTIONS
-    global wrapper_file wrap_compile_flags;
+    global wrapper_file wrap_compile_flags
+    global ld_library_path
 
     if { $inpfile != "" } {
 	set inpfile "$srcdir/../tests/$inpfile"
     }
 
     set args ""
+    set ld_library_path ""
     lappend args "additional_flags=-O3";
     lappend args "additional_flags=-I.. -I$srcdir/.."
     lappend args "additional_flags=$wrap_compile_flags";