--- a/mercurial/HGCommand.st	Thu Jul 17 15:38:42 2014 +0100
+++ b/mercurial/HGCommand.st	Thu Jul 17 20:09:49 2014 +0000
@@ -287,10 +287,15 @@
 
     | tokens executable executableAsFilename arguments version |
 
-    tokens := (HGCommandParser on: command readStream) parseShellCommand.
-    executable := tokens first.
+    command asFilename exists ifTrue:[
+        executable := command.
+        arguments := #().   
+    ] ifFalse:[
+        tokens := (HGCommandParser on: command readStream) parseShellCommand.
+        executable := tokens first.
+        arguments := tokens copyFrom: 2.
+    ].
     executableAsFilename := executable asFilename.
-    arguments := tokens copyFrom: 2.
     executableAsFilename isAbsolute ifFalse:[
         executableAsFilename := executableAsFilename asAbsoluteFilename.
         executableAsFilename exists ifTrue:[
@@ -331,7 +336,7 @@
     (self hgVersionIsSupported: version) ifFalse:[
         HGInvalidVersionError newException
             parameter: version;
-            messageText: ('Unsuported Mercurial version (%1)' bindWith: (version asStringWith:$.));
+            messageText: ('Unsuported Mercurial version (%1)' bindWith: ((version collect:[:e|e printString]) asStringWith:$.));
             raise.
         ^ nil
     ].
@@ -339,6 +344,7 @@
 
     "Created: / 21-02-2014 / 08:50:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 17-07-2014 / 15:10:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-07-2014 / 20:00:56 / jv"
 !
 
 hgVersion