--- a/Parser.st	Wed Aug 20 20:52:15 1997 +0200
+++ b/Parser.st	Thu Aug 21 15:41:42 1997 +0200
@@ -23,7 +23,8 @@
 		currentUsedNamespaces'
 	classVariableNames:'PrevClass PrevInstVarNames PrevClassVarNames
 		PrevClassInstVarNames LazyCompilation ArraysAreImmutable
-		ImplicitSelfSends WarnST80Directives FoldConstants LineNumberInfo'
+		ImplicitSelfSends WarnST80Directives FoldConstants LineNumberInfo
+		SuppressDoItCompilation'
 	poolDictionaries:''
 	category:'System-Compiler'
 !
@@ -548,10 +549,11 @@
              via #readFrom:. 
              The overhead of compiling a method is avoided in this case.
             "
-            (compile not 
+            ((SuppressDoItCompilation == true)
+	     or:[compile not 
              or:[tree isConstant
              or:[tree isVariable
-             or:[aStringOrStream isStream]]]) ifTrue:[
+             or:[aStringOrStream isStream]]]]) ifTrue:[
                 ^ tree evaluate
             ].
 
@@ -4158,6 +4160,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.143 1997-08-05 14:37:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.144 1997-08-21 13:41:42 cg Exp $'
 ! !
 Parser initialize!