diff -r a9ef61b902ae -r 3d8ef499d7d9 mercurial/HGWorkingCopy.st
--- a/mercurial/HGWorkingCopy.st	Sun Mar 03 20:45:13 2013 +0000
+++ b/mercurial/HGWorkingCopy.st	Sun Mar 03 23:58:51 2013 +0000
@@ -250,16 +250,17 @@
         ].
     ].
 
-    ^ (HGCommand commit)
-        workingDirectory:root pathName;
-        message:message;
-        files:files;
-        author: author;
-        date: dateSpecOrNil;
-        executeOnRepository: self repository
+    ^self repository execute:
+        (HGCommand commit
+            workingDirectory:root pathName;
+            message:message;
+            files:files;
+            author: author;
+            date: dateSpecOrNil;
+            yourself).
 
     "Created: / 01-02-2013 / 14:28:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-03-2013 / 20:38:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-03-2013 / 22:58:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 commit:message files:files date: dateSpecOrNil
@@ -274,14 +275,15 @@
 merge: aChangesetOrChangesetId
     "Merge given changeset into workinf copy."
 
-    ^HGCommand merge
-        workingDirectory: self path;
-        revision: aChangesetOrChangesetId asHGChangesetId asString;
-        tool: 'internal:dump';
-        executeOnRepository: self repository
+    ^self repository execute:
+        (HGCommand merge
+            workingDirectory: self path;
+            revision: aChangesetOrChangesetId asHGChangesetId asString;
+            tool: 'internal:dump';
+            yourself)
 
     "Created: / 14-01-2013 / 15:14:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-03-2013 / 20:38:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-03-2013 / 22:59:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 update
@@ -296,13 +298,14 @@
 
     self changeset id = revisionOrBranch ifTrue:[ ^ self ].
 
-    ^HGCommand update
-        workingDirectory: self path;
-        revision: revisionOrBranch asString;
-        executeOnRepository: self repository
+    ^self repository execute:
+        (HGCommand update
+            workingDirectory: self path;
+            revision: revisionOrBranch asString;
+            yourself)
 
     "Created: / 21-11-2012 / 00:21:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-03-2013 / 20:39:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-03-2013 / 23:00:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGWorkingCopy methodsFor:'initialization'!
@@ -373,14 +376,15 @@
 
 states
     states isNil ifTrue:[
-        states := HGCommand resolve__list
-                    workingDirectory: wc pathName;
-                    executeOnRepository: wc repository.
+        states := wc repository execute:
+                    (HGCommand resolve__list
+                        workingDirectory: wc pathName;
+                        yourself) .
     ].
     ^states
 
     "Created: / 14-01-2013 / 16:47:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 03-03-2013 / 20:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-03-2013 / 23:00:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGWorkingCopy class methodsFor:'documentation'!