*** tramp-smb.el	07 May 2004 22:19:47 +0100	1.9
--- tramp-smb.el	10 May 2004 20:02:48 +0100	
***************
*** 1104,1112 ****
  	;; Do `PC-do-completion' without substitution
  	(let* (save)
  	  (fset 'save (symbol-function 'substitute-in-file-name))
! 	  (fset 'substitute-in-file-name (symbol-function 'identity))
! 	  ad-do-it
! 	  (fset 'substitute-in-file-name (symbol-function 'save)))
  
  	;; Expand "$"
  	(let* ((beg (or (and (functionp 'minibuffer-prompt-end) ; Emacs 21
--- 1104,1114 ----
  	;; Do `PC-do-completion' without substitution
  	(let* (save)
  	  (fset 'save (symbol-function 'substitute-in-file-name))
! 	  (unwind-protect
! 	      (progn
! 		(fset 'substitute-in-file-name (symbol-function 'identity))
! 		ad-do-it)
! 	    (fset 'substitute-in-file-name (symbol-function 'save))))
  
  	;; Expand "$"
  	(let* ((beg (or (and (functionp 'minibuffer-prompt-end) ; Emacs 21