--- a/mercurial/HGWorkingCopy.st	Tue Feb 12 23:51:25 2013 +0000
+++ b/mercurial/HGWorkingCopy.st	Thu Feb 14 16:07:22 2013 +0000
@@ -292,12 +292,15 @@
 
 update: revisionOrBranch
 
+    self changeset id = revisionOrBranch ifTrue:[ ^ self ].
+
     ^HGCommand update
         workingDirectory: self path;
         revision: revisionOrBranch asString;
         execute
 
     "Created: / 21-11-2012 / 00:21:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-02-2013 / 15:44:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGWorkingCopy methodsFor:'initialization'!