--- a/XTermView.st	Thu Jun 05 20:23:36 2014 +0200
+++ b/XTermView.st	Thu Jun 05 20:25:15 2014 +0200
@@ -127,14 +127,20 @@
 
 !XTermView methodsFor:'initialization & release'!
 
-destroy
+closeDownShell
+    "shut down my shell process."
+
     |p|
 
-    super destroy.
     (p := pid) notNil ifTrue:[
         pid := nil.
         OperatingSystem terminateProcess: p
     ].
+!
+
+destroy
+    self closeDownShell.
+    super destroy.
 
     "Created: / 25-11-2010 / 10:48:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 01-06-2011 / 13:13:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -369,12 +375,16 @@
 
 !XTermView class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/XTermView.st,v 1.10 2014-06-05 18:25:15 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/XTermView.st,v 1.9 2014-06-05 18:23:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/XTermView.st,v 1.10 2014-06-05 18:25:15 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: XTermView.st,v 1.9 2014-06-05 18:23:36 cg Exp $'
+    ^ '$Id: XTermView.st,v 1.10 2014-06-05 18:25:15 cg Exp $'
 ! !