--- a/TerminalView.st	Sat Oct 27 10:16:13 2018 +0200
+++ b/TerminalView.st	Mon Oct 29 17:07:04 2018 +0100
@@ -1849,7 +1849,7 @@
             ^ self.
         ].
 
-        commandToStxPipe := NonPositionableExternalStream makePipe.
+        commandToStxPipe := PipeStream makePipe.
         commandToStxPipe isNil ifTrue:[
             self warn:(resources string:'Could not create pipe from COMMAND.COM.'). 
             ^ self.
@@ -1866,6 +1866,8 @@
 
         outStream := commandToStxPipe at:1.
         inStream  := stxToCommandPipe at:2.
+        inStream setCommandString:'pty -> stx'.
+        outStream setCommandString:'pty <- stx'.
 
         self defineWindowSize.  "/ does not really work on windows (need help)
 
@@ -1874,7 +1876,7 @@
         args  := (shellAndArgs at:2) ? ''.
     ] ifFalse:[
         "Use a pseudo-tty"
-        pty := NonPositionableExternalStream makePTYPair.
+        pty := PipeStream makePTYPair.
         pty isNil ifTrue:[
             self warn:(resources string:'Cannot open pty.').
             ^ self.
@@ -1883,6 +1885,7 @@
         "/ pty at:1 is the master;
         "/ pty at:2 is the slave
         inStream := outStream := (pty at:1).
+        inStream setCommandString:'pty'.
 
         self defineWindowSize.
 
@@ -1965,6 +1968,7 @@
 
     "Created: / 20-07-1998 / 18:19:32 / cg"
     "Modified: / 17-07-2014 / 19:43:00 / cg"
+    "Modified: / 29-10-2018 / 17:04:19 / Claus Gittinger"
 !
 
 startCommand:aCommand