--- a/TerminalView.st	Tue Apr 27 20:53:08 1999 +0200
+++ b/TerminalView.st	Wed Apr 28 12:08:22 1999 +0200
@@ -662,12 +662,17 @@
         "/ must use another mechanism
 
         stxToCommandPipe := OperatingSystem makePipe.
-        stxToCommandPipe isNil ifTrue:[
-            ^ self warn:'Could not create pipe.'.
+        (stxToCommandPipe isNil
+        or:[(stxToCommandPipe at:2) < 0
+        or:[(stxToCommandPipe at:2) < 0]]) ifTrue:[
+            ^ self warn:'Could not create pipe to COMMAND.COM.'.
         ].
+
         commandToStxPipe := OperatingSystem makePipe.
-        commandToStxPipe isNil ifTrue:[
-            ^ self warn:'Could not create pipe.'.
+        (commandToStxPipe isNil 
+        or:[(commandToStxPipe at:2) < 0
+        or:[(commandToStxPipe at:2) < 0]]) ifTrue:[
+            ^ self warn:'Could not create pipe from COMMAND.COM.'.
         ].
 
         shellAndArgs := OperatingSystem commandAndArgsForOSCommand:aCommand.
@@ -695,7 +700,7 @@
     ] ifFalse:[
         p := ExternalStream makePTYPair.
         p isNil ifTrue:[
-            self warn:'Cannot open pty'.
+            self warn:'Cannot open pty.'.
             ^ self.
         ].
 
@@ -785,7 +790,7 @@
     self startReaderProcess.
 
     "Created: / 20.7.1998 / 18:19:32 / cg"
-    "Modified: / 27.4.1999 / 19:59:43 / cg"
+    "Modified: / 28.4.1999 / 11:52:28 / cg"
 !
 
 startShell
@@ -1358,5 +1363,5 @@
 !TerminalView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.72 1999-04-27 18:53:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TerminalView.st,v 1.73 1999-04-28 10:08:22 cg Exp $'
 ! !