--- a/Parser.st	Wed Aug 01 21:57:08 2001 +0200
+++ b/Parser.st	Mon Aug 13 15:09:45 2001 +0200
@@ -321,7 +321,7 @@
 
     ImplicitSelfSends := false.
     WarnST80Directives := false.
-    WarnUnusedVars := true.
+    WarnUnusedVars := "true" false.
     FoldConstants := #level1.
     LineNumberInfo := false.
 
@@ -2451,7 +2451,10 @@
 !
 
 deleteDefinitionOf:varName in:defStartPos to:defEndPos
-    |source startSearch pos pos2 nextChar|
+    |source startSearch pos pos2 nextChar varSlot|
+
+    varSlot := methodVars detect:[:var | var name = varName].
+    methodVars removeIdentical:varSlot.
 
     source := requestor currentSourceCode.
     startSearch := defStartPos+1.
@@ -3080,7 +3083,7 @@
                 "/ ATTENTION: MUST force a recompile after the deletion,
                 "/            since localVariable-offsets change with the removal
                 "/            (but the parseTree which has already been generated does not
-                "/             know about this ...)
+                "/             know about this and therefore contains the wrong indices...)
 "/                aNameCollection do:[:eachName |
 "/                    self deleteDefinitionOf:eachName in:(localVarDefPosition first) to:(localVarDefPosition last).
 "/                ].
@@ -5915,6 +5918,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.293 2001-08-01 19:57:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.294 2001-08-13 13:09:45 cg Exp $'
 ! !
 Parser initialize!