--- a/Unix.st Wed Aug 23 19:50:59 1995 +0200
+++ b/Unix.st Thu Aug 24 22:42:03 1995 +0200
@@ -22,7 +22,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.48 1995-08-23 17:50:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.49 1995-08-24 20:42:03 claus Exp $
'!
!OperatingSystem primitiveFunctions!
@@ -304,7 +304,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.48 1995-08-23 17:50:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.49 1995-08-24 20:42:03 claus Exp $
"
!
@@ -3643,6 +3643,8 @@
path := self primPathNameOf:pathName.
path isNil ifTrue:[
+ (self isValidPath:pathName) ifFalse:[^ pathName].
+
(SlowFork==true or:[ForkFailed]) ifFalse:[
PipeStream openErrorSignal handle:[:ex |
ForkFailed := true.