--- a/TerminalSession.st	Sun Aug 11 15:44:49 2013 +0200
+++ b/TerminalSession.st	Fri Aug 16 14:39:29 2013 +0200
@@ -227,7 +227,9 @@
     shellDirectory := aDirectory.
     terminatedAction := terminatedActionArg.
 
-    self createTerminalConnectionAndSetupWith:setupBlock.
+    (inStream isNil or:[outStream isNil]) ifTrue:[
+        self createTerminalConnectionAndSetupWith:setupBlock.
+    ].
     OperatingSystem isMSWINDOWSlike ifTrue:[
         shellAndArgs := OperatingSystem commandAndArgsForOSCommand:aCommand.
         shell := shellAndArgs at:1.
@@ -509,11 +511,11 @@
 !TerminalSession class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.7 2013-08-11 13:44:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.8 2013-08-16 12:39:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.7 2013-08-11 13:44:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/TerminalSession.st,v 1.8 2013-08-16 12:39:29 cg Exp $'
 ! !