diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 42c55edf4c8..3bf08bcb4b0 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2018-10-04  Tom Tromey  <tom@tromey.com>
+
+	* guile/scm-frame.c (gdbscm_frame_read_var): Remove inner
+	declaration of "block".
+
 2018-10-04  Tom Tromey  <tom@tromey.com>
 
 	* common/filestuff.c (fdwalk): Remove inner declaration of
diff --git a/gdb/guile/scm-frame.c b/gdb/guile/scm-frame.c
index 3d27907e193..5a056de3328 100644
--- a/gdb/guile/scm-frame.c
+++ b/gdb/guile/scm-frame.c
@@ -878,7 +878,6 @@ gdbscm_frame_read_var (SCM self, SCM symbol_scm, SCM rest)
     }
   else if (scm_is_string (symbol_scm))
     {
-      const struct block *block = NULL;
       struct gdb_exception except = exception_none;
 
       if (! SCM_UNBNDP (block_scm))