--- a/mercurial/HGCommitDialog.st	Tue Nov 27 22:17:24 2012 +0000
+++ b/mercurial/HGCommitDialog.st	Wed Nov 28 09:12:38 2012 +0000
@@ -154,6 +154,27 @@
     "Modified: / 16-11-2012 / 11:27:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!HGCommitDialog methodsFor:'private'!
+
+doUpdateWorkingCopy
+    | heads changeset |
+
+    super doUpdateWorkingCopy.
+    heads := self task package workingCopy heads.
+    changeset := self task package workingCopy changeset.
+    (heads includes: changeset) ifFalse:[
+        self infoPanel 
+            reset;
+            beInformation;
+            message: (self resources string:'Comitting a new head.');
+            addButtonWithLabel: (self resources string:'Proceed') action: [self infoPanel hide];
+            addButtonWithLabel: (self resources string:'Cancel') action:[self doCancel];
+            show.
+    ]
+
+    "Created: / 27-11-2012 / 23:36:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !HGCommitDialog class methodsFor:'documentation'!
 
 version_HG