# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1192145552 0
# Node ID 8ff5c5a5cd7fc36c2491ef0eebb4383a392c355b
# Parent  435ebb14becf0a9e72a875efd08fc2f03738c26e
Fix previous change.

diff -r 435ebb14becf -r 8ff5c5a5cd7f lisp/vc.el
--- a/lisp/vc.el	Thu Oct 11 22:21:17 2007 +0000
+++ b/lisp/vc.el	Thu Oct 11 23:32:32 2007 +0000
@@ -1480,9 +1480,9 @@
      ((stringp state)
       (let ((revision 
 	     (if verbose 
-		 (read-string "Version to steal: ")
-	       (vc-workfile-version file))))
-	(mapc (lambda (file) (vc-steal-lock file version state) files))))
+		 (read-string "Revision to steal: ")
+	       (vc-working-revision file))))
+	(mapc (lambda (file) (vc-steal-lock file revision state) files))))
 	;; needs-patch
      ((eq state 'needs-patch)
       (dolist (file files)