diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4b3852bc3d50b7d12f6fb5a34edc68c8792e5e09..12c9d3c7ec42d2957641c0d4f09c5b2e2ffcf457 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-05-07  Juanma Barranquero  <lekktu@gmail.com>
 
+	* minibuffer.el (comps): Declare for byte-compiler.
+
 	Fix use of `filter-buffer-substring' (4th arg NOPROPS removed).
 	* emulation/cua-base.el (cua-repeat-replace-region):
 	* emulation/cua-gmrk.el (cua-copy-region-to-global-mark)
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 31bdb6993fa6d37d57e3e45721d73a31799f5c29..9ebaf52c8864868211ebc64a855e1b180d5d130b 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1987,6 +1987,8 @@ filter out additional entries (because TABLE migth not obey PRED)."
   "Like `reverse' but for a string STR rather than a list."
   (apply 'string (nreverse (mapcar 'identity str))))
 
+(defvar comps)
+
 (defun completion--common-suffix (strs)
   "Return the common suffix of the strings STRS."
   (completion--sreverse