--- a/Filename.st	Wed Jul 10 15:08:44 1996 +0200
+++ b/Filename.st	Wed Jul 10 17:03:32 1996 +0200
@@ -1488,12 +1488,15 @@
     |s contents|
 
     s := self readStream.
+    s isNil ifTrue:[^ nil].
+
     [
         contents := s contentsOfEntireFile
     ] valueNowOrOnUnwindDo:[s close].
     ^ contents
 
     "Modified: 2.7.1996 / 12:49:45 / stefan"
+    "Modified: 10.7.1996 / 14:36:03 / cg"
 !
 
 directoryContents
@@ -1962,5 +1965,5 @@
 !Filename  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.63 1996-07-09 08:20:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.64 1996-07-10 15:03:32 cg Exp $'
 ! !