diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cb70d88b849df3b0d10d745b121ae6ccc081d5af..b08374742c1581a3dfcd19784a7033ae9be476b8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-06-27  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* textmodes/rst.el (rst-adornment-faces-alist): Avoid copy-list.
+
 	* emacs-lisp/cl.el (flet): Mark obsolete.
 	* emacs-lisp/cl-macs.el (cl-flet*): New macro.
 	* vc/vc-rcs.el (vc-rcs-annotate-command, vc-rcs-parse):
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index 8ad7a8e1c1650624be9650931e955de3ea32f596..6e0562f4a4bf5fb0fe948d2e51dbf75ab45009ba 100644
--- a/lisp/textmodes/rst.el
+++ b/lisp/textmodes/rst.el
@@ -3416,10 +3416,11 @@ This color is used as background for section title text on level
 
 (defcustom rst-adornment-faces-alist
   ;; FIXME LEVEL-FACE: Must be redone if `rst-level-face-max' is changed
-  (let ((alist (copy-list '((t . rst-transition)
-			    (nil . rst-adornment))))
+  (let ((alist (copy-sequence '((t . rst-transition)
+                                (nil . rst-adornment))))
 	(i 1))
     (while (<= i rst-level-face-max)
+      ;; FIXME: why not `push'?
       (nconc alist (list (cons i (intern (format "rst-level-%d-face" i)))))
       (setq i (1+ i)))
     alist)