*** /home/albinus/src/tramp/lisp/tramp.el.~2.681.~	2009-03-23 15:26:12.000000000 +0100
--- /home/albinus/src/tramp/lisp/tramp.el	2009-04-05 10:08:55.000000000 +0200
***************
*** 4227,4233 ****
      (let ((backup-directory-alist
  	   ;; Emacs case
  	   (when (boundp 'backup-directory-alist)
! 	     (if (boundp 'tramp-backup-directory-alist)
  		 (mapcar
  		  '(lambda (x)
  		     (cons
--- 4227,4233 ----
      (let ((backup-directory-alist
  	   ;; Emacs case
  	   (when (boundp 'backup-directory-alist)
! 	     (if (symbol-value 'tramp-backup-directory-alist)
  		 (mapcar
  		  '(lambda (x)
  		     (cons
***************
*** 4243,4249 ****
  	  (bkup-backup-directory-info
  	   ;; XEmacs case
  	   (when (boundp 'bkup-backup-directory-info)
! 	     (if (boundp 'tramp-bkup-backup-directory-info)
  		 (mapcar
  		  '(lambda (x)
  		     (nconc
--- 4243,4249 ----
  	  (bkup-backup-directory-info
  	   ;; XEmacs case
  	   (when (boundp 'bkup-backup-directory-info)
! 	     (if (symbol-value 'tramp-bkup-backup-directory-info)
  		 (mapcar
  		  '(lambda (x)
  		     (nconc