diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f68b7a8be4..e891ecb2b1 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2010-01-26  Tom Tromey  <tromey@redhat.com>
+
+	PR exp/7643:
+	* eval.c (evaluate_subexp_for_address) <UNOP_IND>: Call
+	coerce_array on result.
+
 2010-01-26  Sami Wagiaalla  <swagiaal@redhat.com>
 
 	* cp-namespace.c (cp_lookup_symbol_namespace): Added
diff --git a/gdb/eval.c b/gdb/eval.c
index 27b7895646..a0556cf90c 100644
--- a/gdb/eval.c
+++ b/gdb/eval.c
@@ -2629,7 +2629,7 @@ evaluate_subexp_for_address (struct expression *exp, int *pos,
 	  goto default_case_after_eval;
 	}
 
-      return x;
+      return coerce_array (x);
 
     case UNOP_MEMVAL:
       (*pos) += 3;
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index c8e5c6e47b..667154d4e1 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2010-01-26  Tom Tromey  <tromey@redhat.com>
+
+	PR exp/7643:
+	* gdb.base/printcmds.exp (test_print_string_constants): Remove
+	setup_kfail.
+
 2010-01-14  Sami Wagiaalla  <swagiaal@redhat.com>
 
 	* gdb.cp/nsrecurs.exp: New test.
diff --git a/gdb/testsuite/gdb.base/printcmds.exp b/gdb/testsuite/gdb.base/printcmds.exp
index 2f4b0cce0d..5598bde2a9 100644
--- a/gdb/testsuite/gdb.base/printcmds.exp
+++ b/gdb/testsuite/gdb.base/printcmds.exp
@@ -647,7 +647,6 @@ proc test_print_string_constants {} {
     gdb_test "p *\"foo\""		" = 102 'f'"
     gdb_test "ptype *\"foo\""		" = char"
     gdb_test "p &*\"foo\""		" = \"foo\""
-    setup_kfail "gdb/538" *-*-*
     gdb_test "ptype &*\"foo\""	"type = char \\*"
     gdb_test "p (char *)\"foo\""	" = \"foo\""
 }