--- a/contrib/gadict.el	Tue Dec 13 12:59:33 2016 +0200
+++ b/contrib/gadict.el	Tue Dec 13 14:10:28 2016 +0200
@@ -263,7 +263,7 @@
 (defun gadict-nearest-headword ()
   "Return nearest headword looking upward."
   (save-excursion
-    (let ( (orig (point)) limit headword )
+    (let ( (orig (point)) limit )
       (re-search-backward "^__$")
       (forward-line 1)
       (unless (and (eq (char-before) ?\n) (eq (char-after) ?\n))