--- a/mercurial/HGCommand.st	Wed Nov 14 19:44:56 2012 +0000
+++ b/mercurial/HGCommand.st	Wed Nov 14 19:46:42 2012 +0000
@@ -368,12 +368,19 @@
 argumentsCommandOn:stream
     "Called to get command specific options"
 
+    | author |
+
     stream nextPut:'-m'; nextPut: message.
     files notNil ifTrue:[
         stream nextPutAll: files
+    ].
+    author := HGAuthorQuery query.
+    author notNil ifTrue:[
+        stream nextPut:'--user'; nextPut: author
     ]
 
     "Created: / 12-11-2012 / 22:38:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-11-2012 / 19:45:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 parse:stream