--- a/mercurial/HGCommand.st	Sun Apr 13 16:33:23 2014 +0200
+++ b/mercurial/HGCommand.st	Sun Apr 13 17:02:07 2014 +0200
@@ -548,7 +548,9 @@
         Logger log: 'cmd: propagating: ' , anException class name , ' - ', anException description severity: #trace facility: 'HG'.
     ].
     Debug ifTrue:[ 
-        anException suspendedContext fullPrintAllOn: Transcript.  
+        anException suspendedContext notNil ifTrue:[
+            anException suspendedContext fullPrintAllOn: Transcript.
+        ]
     ].
     errors nextPut: anException.
 
@@ -593,7 +595,6 @@
                     ifTrue:[OperatingSystem getEnvironment copy]
                     ifFalse:[environment := Dictionary new].
     environment at: 'HGEDITOR' put: 'true'.
-
     environment at:'LANG' put:'C'.
     environment at:'LC_MESSAGES' put:'C'.
 
@@ -1821,13 +1822,21 @@
 
 !HGCommand class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libscm/mercurial/HGCommand.st,v 1.4 2014/04/13 15:02:07 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libscm/mercurial/HGCommand.st,v 1.4 2014/04/13 15:02:07 cg Exp $'
+!
+
 version_HG
 
     ^ '$Changeset: <not expanded> $'
 !
 
 version_SVN
-    ^ 'Id::                                                                                                                        '
+    ^ '$Id: HGCommand.st,v 1.4 2014/04/13 15:02:07 cg Exp $'
 ! !