*** a/vc-git.el	Mon Sep 12 12:14:06 2011
--- b/vc-git.el	Mon Sep 12 12:16:41 2011
***************
*** 1066,1085 ****
    (interactive)
    (let ((stash (vc-git-stash-get-at-point (point))))
      (when (y-or-n-p (format "Remove stash %s ? " stash))
!       (vc-git--run-command-string nil "stash" "drop" (format "stash@%s" stash))
        (vc-dir-refresh))))
  
  (defun vc-git-stash-show-at-point ()
    (interactive)
!   (vc-git-stash-show (format "stash@%s" (vc-git-stash-get-at-point (point)))))
  
  (defun vc-git-stash-apply-at-point ()
    (interactive)
!   (vc-git-stash-apply (format "stash@%s" (vc-git-stash-get-at-point (point)))))
  
  (defun vc-git-stash-pop-at-point ()
    (interactive)
!   (vc-git-stash-pop (format "stash@%s" (vc-git-stash-get-at-point (point)))))
  
  (defun vc-git-stash-menu (e)
    (interactive "e")
--- 1066,1093 ----
    (interactive)
    (let ((stash (vc-git-stash-get-at-point (point))))
      (when (y-or-n-p (format "Remove stash %s ? " stash))
!       (vc-git--run-command-string nil "stash" "drop"
! 				  (shell-quote-argument
! 				   (format "stash@%s" stash)))
        (vc-dir-refresh))))
  
  (defun vc-git-stash-show-at-point ()
    (interactive)
!   (vc-git-stash-show
!    (shell-quote-argument
!     (format "stash@%s" (vc-git-stash-get-at-point (point))))))
  
  (defun vc-git-stash-apply-at-point ()
    (interactive)
!   (vc-git-stash-apply
!    (shell-quote-argument
!     (format "stash@%s" (vc-git-stash-get-at-point (point))))))
  
  (defun vc-git-stash-pop-at-point ()
    (interactive)
!   (vc-git-stash-pop
!    (shell-quote-argument
!     (format "stash@%s" (vc-git-stash-get-at-point (point))))))
  
  (defun vc-git-stash-menu (e)
    (interactive "e")