--- a/mercurial/HGCommand.st	Thu Jul 17 15:38:42 2014 +0100
+++ b/mercurial/HGCommand.st	Thu Jul 17 18:47:19 2014 +0100
@@ -404,8 +404,11 @@
     "Return a list of mercurial version supported bu this
      implementation"
 
-    ^ #( #(1 9 #'*')
-     #(2 #'*' #'*') )
+    ^ #( 
+        (1 9 #'*')     "1.9 - will wanish"
+        (2 #'*' #'*')  "2.x"
+        (3 #'*' #'*')  "3.x"
+    )
 
     "Created: / 19-11-2012 / 20:26:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -699,16 +702,22 @@
         Logger log: 'cmd: propagating: ' , anException class name , ' - ', anException description severity: #trace facility: 'HG'.
     ].
     Debug ifTrue:[
-    	anException isNotification ifFalse:[
+        anException isNotification ifFalse:[
+            | wasResumable |  
+
             anException suspendedContext notNil ifTrue:[
                 anException suspendedContext fullPrintAllOn: Transcript.
             ].
+            "/ When debugging, open a debugger here so the user may check the 
+            "/ stack and actual variable values in debugger.
+            Debugger enter.
         ].
     ].
     errors nextPut: anException.
 
     "Created: / 04-02-2013 / 21:29:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 05-03-2014 / 00:08:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-07-2014 / 08:21:15 / jv"
 !
 
 signal
@@ -782,7 +791,7 @@
             inDirectory:self workingDirectory
     ] action:[:stat |
         Trace ifTrue:[
-            Logger log: 'cmd: command finished' severity: #trace facility: 'HG'.
+            Logger log: 'cmd: command finished with code ' , stat code printString severity: #trace facility: 'HG'.
         ].
         status := stat.
         blocker signal.
@@ -973,7 +982,9 @@
         Trace ifTrue:[
             Logger log: 'cmd: worker ''', name , ''' spawned' severity: #trace facility: 'HG'.
         ].
-        block on: Error do:[:ex|self propagate:ex]
+        block on: Error do:[:ex|
+            self propagate:ex
+        ]
     ] newProcess.
     worker addExitAction:[
         Trace ifTrue:[
@@ -987,6 +998,7 @@
 
     "Created: / 03-03-2013 / 16:56:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 05-03-2013 / 19:42:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 17-07-2014 / 07:31:58 / jv"
 !
 
 spawnErrorReaderOn: stderr