--- a/Parser.st	Thu May 18 17:38:32 1995 +0200
+++ b/Parser.st	Fri May 19 00:57:15 1995 +0200
@@ -41,7 +41,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.40 1995-05-12 17:30:42 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.41 1995-05-18 22:57:15 claus Exp $
 '!
 
 !Parser class methodsFor:'documentation'!
@@ -62,7 +62,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.40 1995-05-12 17:30:42 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.41 1995-05-18 22:57:15 claus Exp $
 "
 !
 
@@ -1119,6 +1119,10 @@
 release
     methodArgs := methodVars := tree := selfNode := superNode := nil.
     super release.
+!
+
+targetClass:aClass
+   classToCompileFor := aClass
 ! !
 
 !Parser methodsFor:'error handling'!