branch | jv |
changeset 19009 | 0181a8078105 |
parent 18958 | e35ab14763b6 |
parent 19008 | e74b041ed377 |
child 19103 | 71257a47eba2 |
--- a/ExternalStream.st Tue Dec 29 06:40:21 2015 +0100 +++ b/ExternalStream.st Wed Dec 30 07:00:31 2015 +0100 @@ -5455,9 +5455,9 @@ We know, that error conditions do not block, so return true for errors." ^ readAhead notNil - or:[handle isNil] + or:[handle isNil or:[mode == #writeonly - or:[OperatingSystem readCheck:self fileDescriptor]] + or:[OperatingSystem readCheck:self fileDescriptor]]] " |pipe|