--- a/ByteCodeCompiler.st	Wed Feb 12 16:27:56 2003 +0100
+++ b/ByteCodeCompiler.st	Mon Feb 24 17:59:52 2003 +0100
@@ -2969,11 +2969,17 @@
         "/ class could have changed ...
         aClass := self classToCompileFor.
         aString := self correctedSource ? aStringArg.
+        methodArgs := methodArgNames := methodVars := methodVarNames := nil.
+        usedInstVars := usedClassVars := usedVars := nil.
+        modifiedInstVars := modifiedClassVars := modifiedGlobals := nil.
+        currentBlock := nil.
         ex restart
     ] do:[
         "create a compiler, let it parse and create the parsetree"
 
-        self source:(ReadStream on:aString).
+        self source:(ReadStream on:aString string).
+        self nextToken.
+
         self setClassToCompileFor:aClass.
 
         self parseForCode.
@@ -3814,7 +3820,7 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.208 2003-02-10 16:39:10 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.209 2003-02-24 16:59:52 cg Exp $'
 ! !
 
 ByteCodeCompiler initialize!