--- a/mercurial/HGCommitDialog.st	Sun Mar 03 20:45:13 2013 +0000
+++ b/mercurial/HGCommitDialog.st	Sun Mar 03 23:58:51 2013 +0000
@@ -569,9 +569,11 @@
     wcrootPathNameRelative := wcroot pathNameRelative.
     wcrootPathNameRelativeLen := wcrootPathNameRelative size.
 
-    statuses := HGCommand status
-                    workingDirectory: wcroot pathName;
-                    execute.
+    statuses := self task temporaryWorkingCopy repository execute:
+                    (HGCommand status
+                        workingDirectory: wcroot pathName;
+                        yourself).
+
     entries := OrderedCollection new: statuses size.
     statuses do:[:statusAndPath|
         (fileListShowOnlyModifiedHolder value not
@@ -591,7 +593,7 @@
     self fileListHolder value: entries
 
     "Created: / 08-02-2012 / 18:05:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 12-01-2013 / 13:58:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-03-2013 / 23:08:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HGCommitDialog methodsFor:'private'!