# HG changeset patch
# User penk
# Date 1039185165 -3600
# Node ID b7cd10d26d998694e75e6e97c861ebf9cd25b8bf
# Parent  6f21c707fbff1d3c2e758c191e867b2cabb24ff4
*** empty log message ***

diff -r 6f21c707fbff -r b7cd10d26d99 PositionableStream.st
--- a/PositionableStream.st	Fri Dec 06 15:31:23 2002 +0100
+++ b/PositionableStream.st	Fri Dec 06 15:32:45 2002 +0100
@@ -484,7 +484,7 @@
         ].
         aString size ~~ 0 ifTrue:[
             passChunk ifTrue:[
-                someone source:aString
+                someone notNil ifTrue:[someone source:aString]
             ].
             sawExcla ifFalse:[
                 rslt := Smalltalk::Compiler evaluate:aString notifying:someone.
@@ -1141,7 +1141,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.116 2002-12-06 14:31:23 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.117 2002-12-06 14:32:45 penk Exp $'
 ! !
 
 PositionableStream initialize!