diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b58fe1125f..b146a1d4d9e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-11-11  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* emacs-lisp/easy-mmode.el (define-minor-mode): Purecopy :lighter.
+
 	* subr.el (add-hook): Purecopy strings.
 	(eval-after-load): Purecopy load-history-regexp and the form.
 
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el
index b667d39ea17..bc97b07ddc3 100644
--- a/lisp/emacs-lisp/easy-mmode.el
+++ b/lisp/emacs-lisp/easy-mmode.el
@@ -158,7 +158,7 @@ For example, you could write
       (setq body (cdr body))
       (case keyw
 	(:init-value (setq init-value (pop body)))
-	(:lighter (setq lighter (pop body)))
+	(:lighter (setq lighter (purecopy (pop body))))
 	(:global (setq globalp (pop body)))
 	(:extra-args (setq extra-args (pop body)))
 	(:set (setq set (list :set (pop body))))