Filename.st
changeset 6943 910f4b17c342
parent 6908 27f9f8eceb56
child 6973 c46e1d005ea4
--- 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!