--- a/mercurial/HGCommitTask.st	Sun Dec 09 23:27:08 2012 +0000
+++ b/mercurial/HGCommitTask.st	Mon Dec 10 02:49:43 2012 +0000
@@ -1,7 +1,7 @@
 "{ Package: 'stx:libscm/mercurial' }"
 
 SCMAbstractCommitTask subclass:#HGCommitTask
-	instanceVariableNames:'author'
+	instanceVariableNames:'author remote'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SCM-Mercurial-StX-Tasks'
@@ -27,6 +27,14 @@
 
 author:aString
     author := aString.
+!
+
+remote
+    ^ remote
+!
+
+remote:something
+    remote := something.
 ! !
 
 !HGCommitTask methodsFor:'executing'!
@@ -35,13 +43,19 @@
     "Actually commit the changes, To be overridden by subclasses"
 
     self synchronized:[    
-        self package temporaryWorkingCopy commit: msg files: containers author: self author.
-        self package temporaryWorkingCopy repository push: nil force: true.
+        | wc |
+
+        wc := self package temporaryWorkingCopy.
+        wc commit: msg files: containers author: self author.
+        wc repository push: nil force: true.
+        remote notNil ifTrue:[
+            self package repository push: remote force: false.
+        ]
     ].
 
     "Created: / 15-11-2012 / 16:52:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 01-12-2012 / 00:27:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 07-12-2012 / 16:13:16 / jv"
+    "Modified: / 10-12-2012 / 01:44:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doPrepareWorkingCopy2