*** empty log message ***

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index c3d27d3d12496818423d3c56cdc37b1224676d90..2f06344ccdab2d504aa182080a1d70254bd59520 100644 (file)
--- 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