diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 646bb06fed2..a428a13de4a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-04-27  Jay Belanger  <jay.p.belanger@gmail.com>
+
+	* calc/calc.el (calc-mode): Replace `copy-list' with `copy-sequence'.
+
 2009-04-26  Jay Belanger  <jay.p.belanger@gmail.com>
 
 	* calc/calc.el (calc-set-mode-line): Check to make sure that the
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 00a33f59374..78513c891f6 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1335,7 +1335,7 @@ Notations:  3.14e6     3.14 * 10^6
   (calc-refresh t)
   (calc-set-mode-line)
   (calc-check-defines)
-  (if calc-buffer-list (setq calc-stack (copy-list calc-stack)))
+  (if calc-buffer-list (setq calc-stack (copy-sequence calc-stack)))
   (add-to-list 'calc-buffer-list (current-buffer) t))
 
 (defvar calc-check-defines 'calc-check-defines)  ; suitable for run-hooks