--- a/mercurial/HGWorkingCopy.st	Fri Nov 09 12:09:13 2012 +0000
+++ b/mercurial/HGWorkingCopy.st	Tue Nov 13 11:06:16 2012 +0000
@@ -23,6 +23,29 @@
     ^ root
 ! !
 
+!HGWorkingCopy methodsFor:'actions'!
+
+commit: message
+    "Commits all uncommited changes with given message"
+
+    ^self commit: message files: nil
+
+    "Created: / 12-11-2012 / 22:35:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+commit: message files: files
+    "Commit given files with given message. If files
+     is nil, all tracked modified files are commited"
+
+    ^HGCommand commit
+        workingDirectory: root pathName;
+        message: message;
+        files: files;
+        execute
+
+    "Created: / 12-11-2012 / 22:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !HGWorkingCopy methodsFor:'initialization'!
 
 setRepository: aGitRepository