--- a/Parser.st	Fri Jan 21 11:48:43 2000 +0100
+++ b/Parser.st	Mon Jan 31 20:06:35 2000 +0100
@@ -763,6 +763,20 @@
 	compile:compile
 !
 
+evaluate:aStringOrStream notifying:requestor logged:logged
+    "return the result of evaluating aString, 
+     errors are reported to requestor"
+
+    ^ self 
+        evaluate:aStringOrStream 
+        in:nil 
+        receiver:nil 
+        notifying:requestor
+        logged:logged
+        ifFail:nil 
+        compile:true
+!
+
 evaluate:aStringOrStream receiver:anObject
     "return the result of evaluating aString, 
      errors are reported to requestor. Allow access to
@@ -5386,6 +5400,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.236 2000-01-19 15:46:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.237 2000-01-31 19:06:35 cg Exp $'
 ! !
 Parser initialize!