--- a/mercurial/HGCommand.st	Mon Apr 25 21:42:03 2016 +0100
+++ b/mercurial/HGCommand.st	Thu May 12 00:06:27 2016 +0200
@@ -261,7 +261,9 @@
             command := command asString.
         ]
     ].
-    command := OperatingSystem pathOfCommand:'hg'.
+    command isNil ifTrue:[ 
+        command := OperatingSystem pathOfCommand:'hg'.
+    ].
     command isNil ifTrue:[
         | guesses |
         guesses := #().
@@ -283,7 +285,7 @@
     "
 
     "Created: / 19-11-2012 / 21:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (format): / 25-04-2016 / 21:30:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-05-2016 / 00:00:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 hgCommand: command