diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3aa5d981fbe..6f53088805e 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-08  Mark Mitchell  <mark@codesourcery.com>
+
+	* lib/gcc-dg.exp (dg-require-alias): Fix typo.
+	(dg-require-gc-sections): Likewise.
+
 Sun Jun  8 16:46:04 CEST 2003  Jan Hubicka  <jh@suse.cz>
 
 	* i386-cmov1.c: Fix regular expression.
diff --git a/gcc/testsuite/lib/gcc-dg.exp b/gcc/testsuite/lib/gcc-dg.exp
index 09fd618d90a..54fdd6abe3c 100644
--- a/gcc/testsuite/lib/gcc-dg.exp
+++ b/gcc/testsuite/lib/gcc-dg.exp
@@ -279,7 +279,7 @@ proc dg-require-alias { args } {
 	unresolved "$name"
     }
     if { $alias_available < 2 } {
-	set dg-do-what [list [lindex $dg_do_what 0] "N" "P"]
+	set dg-do-what [list [lindex $dg-do-what 0] "N" "P"]
 	return
     }
 }
@@ -290,7 +290,7 @@ proc dg-require-alias { args } {
 proc dg-require-gc-sections { args } {
     if { ![ check_gc_sections_available ] } {
 	upvar dg-do-what dg-do-what
-	set dg-do-what [list [lindex $dg_do_what 0] "N" "P"]
+	set dg-do-what [list [lindex $dg-do-what 0] "N" "P"]
 	return
     }
 }