1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index c3d27d3d124..2f06344ccda 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4290,7 +4290,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
         (condition-case err
             (let ((debug-on-error t))
               (save-match-data (apply fn args)))
-          (error (error (error-message-string err))))
+          (error (signal (car err) (cdr err))))
       (ange-ftp-run-real-handler operation args))))
 
 ;; The following code is commented out because Tramp now deals with