1 files changed, 3 insertions, 2 deletions

diff --git a/test/lisp/arc-mode-tests.el b/test/lisp/arc-mode-tests.el
index 43a441918a5..235a67c8649 100644
--- a/test/lisp/arc-mode-tests.el
+++ b/test/lisp/arc-mode-tests.el
@@ -113,9 +113,10 @@ member MEMBER.  Then the test finds ARCHIVE and ensures that function
                                ;; turn the most likely error into a nice
                                ;; and self-explaining symbol that can be
                                ;; compared in a `should'
-                               (if (string= (cadr err) "Buffer format not recognized")
+                               (if (equal (error-slot-value err 1)
+                                          "Buffer format not recognized")
                                    'signature-not-recognized
-                                 (signal (car err) (cdr err))))))
+                                 (signal err)))))
                  (should (eq type (quote ,type)))))
            (when buffer (kill-buffer buffer))
            (dolist (file (list member archive))