--- a/Parser.st	Sat Jun 28 17:09:45 1997 +0200
+++ b/Parser.st	Tue Jul 01 19:07:54 1997 +0200
@@ -677,6 +677,28 @@
 	compile:compile
 !
 
+evaluate:aStringOrStream receiver:anObject
+    "return the result of evaluating aString, 
+     errors are reported to requestor. Allow access to
+     anObject as self and to its instVars "
+
+    ^ self 
+        evaluate:aStringOrStream
+        in:nil
+        receiver:anObject
+        notifying:nil
+        logged:false
+        ifFail:nil
+        compile:true
+
+    "
+     Compiler evaluate:'self x' receiver:(1 @ 2)
+    "
+
+    "Created: 1.7.1997 / 19:02:24 / cg"
+    "Modified: 1.7.1997 / 19:02:33 / cg"
+!
+
 evaluate:aStringOrStream receiver:anObject notifying:requestor
     "return the result of evaluating aString, 
      errors are reported to requestor. Allow access to
@@ -4139,6 +4161,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.140 1997-06-28 13:32:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.141 1997-07-01 17:07:54 cg Exp $'
 ! !
 Parser initialize!