--- a/mercurial/HGCommand.st	Thu Oct 17 00:56:09 2013 +0100
+++ b/mercurial/HGCommand.st	Thu Oct 17 01:38:17 2013 +0100
@@ -1492,6 +1492,14 @@
 
 !HGCommand::remove methodsFor:'accessing'!
 
+force
+    ^ force
+!
+
+force:something
+    force := something.
+!
+
 paths
     ^ paths
 !
@@ -1502,6 +1510,22 @@
 
 !HGCommand::remove methodsFor:'private'!
 
+argumentsCommandOn:stream
+    "Called to get command specific options"
+
+    force == true ifTrue:[
+        stream nextPut: '-f'.
+    ].
+
+    paths isEmptyOrNil ifTrue:[
+        self error: 'No paths given'
+    ].
+    stream nextPutAll: paths
+
+    "Created: / 15-11-2012 / 00:05:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-10-2013 / 18:27:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 parseOutput:stream
     "Parses output of 'hg' command, i.e. commit, log, update, checkout,
      etc."