--- a/Parser.st	Wed Feb 15 11:33:07 1995 +0100
+++ b/Parser.st	Thu Feb 16 04:03:28 1995 +0100
@@ -39,7 +39,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.24 1995-02-15 10:33:00 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.25 1995-02-16 03:03:28 claus Exp $
 '!
 
 !Parser class methodsFor:'documentation'!
@@ -60,7 +60,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.24 1995-02-15 10:33:00 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.25 1995-02-16 03:03:28 claus Exp $
 "
 !
 
@@ -338,7 +338,8 @@
 			value := m valueWithReceiver:anObject 
 					   arguments:#() 
 					    selector:#doIt 
-					      search:nil.
+					      search:nil
+					      sender:nil.
 		    ] ifFalse:[
 			parser evalExitBlock:[:value | parser release. ^ value].
 			value := tree evaluate.