--- a/Parser.st	Fri Jan 31 16:24:40 2003 +0100
+++ b/Parser.st	Sun Feb 02 16:52:47 2003 +0100
@@ -3342,7 +3342,7 @@
 
             sReal := 'doIt ^[\' withCRs , s , '\] value' withCRs.
 
-            compiler := self class new.
+            compiler := ByteCodeCompiler new.
             compiler initializeFlagsFrom:self.
             method := compiler
                     compile:sReal 
@@ -7051,7 +7051,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.367 2003-01-31 15:24:02 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.368 2003-02-02 15:52:47 cg Exp $'
 ! !
 
 Parser initialize!