*** /tmp/tramp.el.~1~	Wed Dec 20 14:22:49 2006
--- /tmp/tramp.el	Wed Dec 20 14:22:49 2006
***************
*** 2868,2874 ****
       filename
       (mapcar (lambda (x) (cons x nil))
  	     (file-name-all-completions filename directory))
!      predicate)))
  
  ;; cp, mv and ln
  
--- 2868,2875 ----
       filename
       (mapcar (lambda (x) (cons x nil))
  	     (file-name-all-completions filename directory))
!      '(lambda (x)
! 	(funcall predicate (expand-file-name (car x) directory))))))
  
  ;; cp, mv and ln
  
***************
*** 4635,4641 ****
    (try-completion
     filename
     (mapcar 'list (file-name-all-completions filename directory))
!    predicate))
  
  ;; I misuse a little bit the tramp-file-name structure in order to handle
  ;; completion possibilities for partial methods / user names / host names.
--- 4636,4643 ----
    (try-completion
     filename
     (mapcar 'list (file-name-all-completions filename directory))
!    '(lambda (x)
!       (funcall predicate (expand-file-name (car x) directory)))))
  
  ;; I misuse a little bit the tramp-file-name structure in order to handle
  ;; completion possibilities for partial methods / user names / host names.