--- a/PeekableStream.st	Wed Jan 26 18:29:16 2005 +0100
+++ b/PeekableStream.st	Wed Jan 26 18:29:41 2005 +0100
@@ -396,7 +396,7 @@
         "/ handle the case where no GUI has been built in,
         "/ just abort the fileIn with a notification
 
-        Screen current isNil ifTrue:[
+        (Screen isNil or:[Screen current isNil]) ifTrue:[
             sender := ex suspendedContext sender.
             msg := (msg , '\\in ' , sender receiver class name , '>>' , sender selector) withCRs.
             self notify:msg.
@@ -931,7 +931,7 @@
 !PeekableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.25 2004-08-22 17:58:15 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.26 2005-01-26 17:29:41 cg Exp $'
 ! !
 
 PeekableStream initialize!