diff --git a/lisp/tramp.el b/lisp/tramp.el
index e300b3a..08a9076 100644
--- a/lisp/tramp.el
+++ b/lisp/tramp.el
@@ -3218,6 +3218,12 @@ User is always nil."
 (defun tramp-handle-find-backup-file-name (filename)
   "Like `find-backup-file-name' for Tramp files."
   (with-parsed-tramp-file-name filename nil
+    (tramp-message
+     v 5 "filename %s backup-enable-predicate %s"
+     filename backup-enable-predicate)
+    (tramp-message
+     v 5 "backup-directory-alist %s tramp-backup-directory-alist %s"
+     backup-directory-alist tramp-backup-directory-alist)
     (let ((backup-directory-alist
 	   (if tramp-backup-directory-alist
 	       (mapcar
@@ -3231,8 +3237,14 @@ User is always nil."
 			method user domain host port (cdr x) hop)
 		     (cdr x))))
 		tramp-backup-directory-alist)
-	     backup-directory-alist)))
-      (tramp-run-real-handler 'find-backup-file-name (list filename)))))
+	     backup-directory-alist))
+	  result)
+      (setq result
+	    (tramp-run-real-handler 'find-backup-file-name (list filename)))
+    (tramp-message
+     v 5 "backup-directory-alist %s result %s"
+     backup-directory-alist result)
+    result)))
 
 (defun tramp-handle-insert-directory
   (filename switches &optional wildcard full-directory-p)