--- a/mercurial/HGCommand.st	Wed Oct 09 12:12:20 2013 +0100
+++ b/mercurial/HGCommand.st	Fri Oct 11 18:31:01 2013 +0100
@@ -111,7 +111,7 @@
 !
 
 HGCommand subclass:#remove
-	instanceVariableNames:'paths'
+	instanceVariableNames:'force paths'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:HGCommand
@@ -1505,12 +1505,17 @@
 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