--- a/mercurial/HGCommand.st	Tue Aug 25 09:03:57 2015 +0100
+++ b/mercurial/HGCommand.st	Tue Aug 25 17:13:18 2015 +0100
@@ -72,7 +72,7 @@
 !
 
 HGCommand subclass:#commit
-	instanceVariableNames:'message files author date'
+	instanceVariableNames:'message files author date amend'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:HGCommand
@@ -1504,6 +1504,14 @@
 
 !HGCommand::commit methodsFor:'accessing'!
 
+amend
+    ^ amend
+!
+
+amend:aBoolean
+    amend := aBoolean.
+!
+
 author
     ^ author
 !
@@ -1563,6 +1571,9 @@
             stream nextPut: date asString
         ]
     ].
+    amend == true ifTrue:[
+        stream nextPut:'--amend'.
+    ].
 
     stream nextPut:'-m'; nextPut: message.
     files notNil ifTrue:[
@@ -1571,7 +1582,7 @@
 
     "Created: / 12-11-2012 / 22:38:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 07-12-2012 / 15:32:51 / jv"
-    "Modified: / 16-11-2014 / 23:49:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-08-2015 / 16:04:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 parseError:stream