diff -urN src/gdb/testsuite/gdb.base/gcore.exp dev/gdb/testsuite/gdb.base/gcore.exp
--- src/gdb/testsuite/gdb.base/gcore.exp	2007-01-09 18:59:11.000000000 +0100
+++ dev/gdb/testsuite/gdb.base/gcore.exp	2007-05-03 19:04:07.000000000 +0200
@@ -108,6 +108,7 @@
 
 set escapedfilename [string_to_regexp ${objdir}/${subdir}/gcore.test]
 
+set core_supported 0
 gdb_test_multiple "gcore ${objdir}/${subdir}/gcore.test" \
 	"save a corefile" \
 {
@@ -123,7 +124,6 @@
   }
 }
 
-global core_supported
 if {!$core_supported} {
   return -1
 }