--- a/Parser.st	Tue Feb 28 22:02:33 1995 +0100
+++ b/Parser.st	Mon Mar 06 20:20:39 1995 +0100
@@ -39,7 +39,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.30 1995-02-24 15:22:08 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.31 1995-03-06 19:20:25 claus Exp $
 '!
 
 !Parser class methodsFor:'documentation'!
@@ -60,7 +60,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.30 1995-02-24 15:22:08 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.31 1995-03-06 19:20:25 claus Exp $
 "
 !
 
@@ -415,7 +415,9 @@
 	 via #readFrom:. 
 	 The overhead of compiling a method is avoided in this case.
 	"
-	(compile not or:[tree isConstant]) ifTrue:[
+	(compile not 
+	 or:[tree isConstant
+	 or:[aStringOrStream isStream]]) ifTrue:[
 	    ^ tree evaluate
 	] ifFalse:[
 	    "
@@ -432,7 +434,7 @@
 		parser evalExitBlock:nil.
 	    ] ifFalse:[
 		aStringOrStream isStream ifTrue:[
-		    s := aStringOrStream contents.
+		    s := parser collectedSource.  "/ does not work yet ...
 		] ifFalse:[
 		    s := aStringOrStream
 		].