diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3ed5c070a68..4798d2cc96a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-10-20  Eli Zaretskii  <eliz@gnu.org>
+
+	* subr.el (top-level): Require `cl' when compiling.
+
 2008-10-20  David Reitter <david.reitter@gmail.com>
 
 	* info.el (Info-mode): Do not remove an existing header line if
diff --git a/lisp/subr.el b/lisp/subr.el
index d078f3dd9ef..f2f70d36a8c 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -24,6 +24,10 @@
 ;;; Commentary:
 
 ;;; Code:
+
+;; This is for lexical-let in apply-partially.
+(eval-when-compile (require 'cl))
+
 (defvar custom-declare-variable-list nil
   "Record `defcustom' calls made before `custom.el' is loaded to handle them.
 Each element of this list holds the arguments to one call to `defcustom'.")