--- a/TerminalSession.st Fri Dec 29 12:49:54 2017 +0100
+++ b/TerminalSession.st Fri Dec 29 12:50:59 2017 +0100
@@ -180,19 +180,21 @@
!
closeStreams
+ |s|
+
self stopReaderProcess.
- inStream notNil ifTrue:[
- inStream isStream ifTrue:[inStream close].
- inStream := nil
+ (s := inStream) notNil ifTrue:[
+ inStream := nil.
+ s isStream ifTrue:[s close].
].
- outStream notNil ifTrue:[
- outStream close.
- outStream := nil
+ (s := outStream) notNil ifTrue:[
+ outStream := nil.
+ s close.
].
- errStream notNil ifTrue:[
- errStream close.
- errStream := nil
+ (s := errStream) notNil ifTrue:[
+ errStream := nil.
+ s close.
].
!