--- a/Filename.st Fri Dec 20 15:46:01 2002 +0100
+++ b/Filename.st Mon Dec 30 18:46:03 2002 +0100
@@ -3419,7 +3419,11 @@
s := self readStream.
s isNil ifTrue:[^ nil].
- size := s nextBytes:buffer size into:buffer.
+ s errorSignal handle:[:ex |
+ size := 0.
+ ] do:[
+ size := s nextBytes:buffer size into:buffer.
+ ].
s close.
buffer := buffer asLowercase.
@@ -4554,7 +4558,7 @@
!Filename class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.233 2002-11-26 16:16:46 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.234 2002-12-30 17:46:03 cg Exp $'
! !
Filename initialize!