diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 9226881d63b..2b3954f149f 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2002-04-24  Daniel Jacobowitz  <drow@mvista.com>
+
+	* gdb.threads/linux-dp.exp: Use 'unset' instead of 'array unset'.
+
 2002-04-23  Elena Zannoni  <ezannoni@redhat.com>
 
 	* gdb.base/help.exp: Change 'help status' to allow for target
diff --git a/gdb/testsuite/gdb.threads/linux-dp.exp b/gdb/testsuite/gdb.threads/linux-dp.exp
index 0f1b26a5038..67ed122d103 100644
--- a/gdb/testsuite/gdb.threads/linux-dp.exp
+++ b/gdb/testsuite/gdb.threads/linux-dp.exp
@@ -214,7 +214,8 @@ proc check_philosopher_stack {thread seen_name} {
 }
 
 set any_interesting 0
-array unset seen
+array set seen {}
+unset seen
 for {set i 1} {$i <= 7} {incr i} {
     if [check_philosopher_stack $i seen] {
 	set any_interesting 1