1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 3c59c92c042..0da1418321f 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -4005,7 +4005,7 @@ that suppresses all warnings during execution of BODY."
                         (eq obj1 prev-var)
                         ;; discard duplicate clauses
                         (not (assq obj2 cases)))
-                   (push (list (eval obj2) body) cases)
+                   (push (list (if (consp obj2) (eval obj2) obj2) body) cases)
                  (if (eq condition t)
                      (progn (push (list 'default body) cases)
                             (throw 'break t))