diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d2ca8906de0..e1cae621330 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,7 @@
 2004-11-30  Janis Johnson  <janis187@us.ibm.com>
 
+	* lib/compat.exp (compat-get-options): Fix for use with dg-xfail-if.
+
 	* lib/target-supports.exp (is-effective-target): Simplify.
 
 	* lib/target-supports.exp (check_effective_target_vect_long):
diff --git a/gcc/testsuite/lib/compat.exp b/gcc/testsuite/lib/compat.exp
index 9bf71d78d26..79f6f15ef5f 100644
--- a/gcc/testsuite/lib/compat.exp
+++ b/gcc/testsuite/lib/compat.exp
@@ -200,6 +200,9 @@ proc compat-get-options { src } {
     global compiler_conditional_xfail_data
     set compiler_conditional_xfail_data ""
 
+    # dg-xfail-if needs access to dg-do-what.
+    upvar dg-do-what dg-do-what 
+
     set tmp [dg-get-options $src]
     foreach op $tmp {
 	set cmd [lindex $op 0]