1 files changed, 4 insertions, 4 deletions

diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index 0d8e1dd0350..37d2bc3612f 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -2045,7 +2045,7 @@ After check-out, runs the normal hook `vc-checkout-hook'."
          (when t
            (let ((buf (get-file-buffer file)))
              (when buf (with-current-buffer buf (read-only-mode -1)))))
-         (signal (car err) (cdr err))))
+         (signal err)))
       `((vc-state . ,(if (or (eq (vc-checkout-model backend (list file)) 'implicit)
                              nil)
                          'up-to-date
@@ -3581,8 +3581,8 @@ BACKEND is the VC backend."
     (condition-case err
         (vc-call-backend backend 'root default-directory)
       (vc-not-supported
-       (unless (eq (cadr err) 'root)
-         (signal (car err) (cdr err)))
+       (unless (eq (error-slot-value err 1) 'root)
+         (signal err))
        nil))))
 
 ;;;###autoload
@@ -4695,7 +4695,7 @@ tip revision are merged into the working file."
                  (and-let* ((fileset (vc-deduce-fileset 'not-state-changing
                                                         'allow-unregistered)))
                    (vc-find-backend-function (car fileset) 'pull)))
-         (signal (car ret) (cdr ret))))
+         (signal ret)))
       (:success
        (setq backend (car ret) files (cadr ret)
              fn (vc-find-backend-function backend 'pull))))