--- a/mercurial/HGWorkingCopy.st	Fri Feb 01 14:05:02 2013 +0000
+++ b/mercurial/HGWorkingCopy.st	Fri Feb 01 14:59:53 2013 +0000
@@ -181,6 +181,30 @@
     "Created: / 12-11-2012 / 22:35:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+commit: message author: authorOrNil
+    "Commits all uncommited changes with given message"
+
+    ^self commit: message files: nil author: authorOrNil
+
+    "Created: / 01-02-2013 / 14:29:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+commit: message author: authorOrNil date: dateSpecOrNil
+    "Commits all uncommited changes with given message"
+
+    ^self commit: message files: nil author: authorOrNil date: dateSpecOrNil
+
+    "Created: / 01-02-2013 / 14:29:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+commit: message date: dateSpecOrNil
+    "Commits all uncommited changes with given message"
+
+    ^self commit: message files: nil author: nil date: dateSpecOrNil
+
+    "Created: / 01-02-2013 / 14:29:55 / 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"
@@ -193,9 +217,24 @@
 !
 
 commit:message files:files author: authorOrNil
-    "Commit given files with given message. If files
+    "Commit given files with given message and author. If files
      is nil, all tracked modified files are commited"
 
+    ^self commit:message files:files author: authorOrNil date: nil
+
+    "Created: / 07-12-2012 / 11:41:52 / jv"
+    "Modified: / 07-12-2012 / 15:45:38 / jv"
+    "Modified: / 01-02-2013 / 14:28:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+commit:message files:files author: authorOrNil date: dateSpecOrNil
+    "Commit given files with given message, author and date
+     (if provided). If files is nil, all tracked modified files 
+     are commited.
+
+     Date can be a Timestamp or a String
+     "
+
     | author |
 
     authorOrNil isNil ifTrue:[
@@ -216,10 +255,19 @@
         message:message;
         files:files;
         author: author;
+        date: dateSpecOrNil;
         execute
 
-    "Created: / 07-12-2012 / 11:41:52 / jv"
-    "Modified: / 07-12-2012 / 15:45:38 / jv"
+    "Created: / 01-02-2013 / 14:28:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+commit:message files:files date: dateSpecOrNil
+    "Commit given files with given message and author. If files
+     is nil, all tracked modified files are commited"
+
+    ^self commit:message files:files author: nil date: dateSpecOrNil
+
+    "Created: / 01-02-2013 / 14:28:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 merge: aChangesetOrChangesetId