Unix.st
changeset 407 4656034aa781
parent 406 ed16ba9383c3
child 413 e5a7deafe8bd
--- 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.