3 files changed, 3 insertions, 4 deletions

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 5cbd4213028..936d5f91a06 100644
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -331,7 +331,7 @@ On error, location of point is unspecified."
             (if no-syntax-crossing
                 ;; Assume called interactively; don't signal an error.
                 (user-error "At top level")
-              (signal (car err) (cdr err)))))))
+              (signal err))))))
       (setq arg (- arg inc)))))
 
 (defun kill-sexp (&optional arg interactive)
diff --git a/lisp/emacs-lisp/multisession.el b/lisp/emacs-lisp/multisession.el
index f3cc4b73338..8df3d9e4b22 100644
--- a/lisp/emacs-lisp/multisession.el
+++ b/lisp/emacs-lisp/multisession.el
@@ -295,7 +295,7 @@ DOC should be a doc string, and ARGS are keywords as applicable to
            (setq i (1+ i)
                  last-error err)
            (sleep-for (+ 0.1 (/ (float (random 10)) 10))))))
-      (signal (car last-error) (cdr last-error)))))
+      (signal last-error))))
 
 (defun multisession--object-file-name (object)
   (expand-file-name
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index c30f7758df4..706614e9df1 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1219,8 +1219,7 @@ errors signaled by ERROR-FORM or by BODY).
        (when (condition-case ,err
                  (progn ,@before-body t)
                (error (funcall error-function)
-                      (unless noerror
-                        (signal (car ,err) (cdr ,err)))))
+                      (unless noerror (signal ,err))))
          (funcall ,body)))))
 
 (cl-defun package--with-response-buffer-1 (url body &key async file error-function noerror &allow-other-keys)