--- a/Parser.st	Thu Jul 11 23:28:09 2002 +0200
+++ b/Parser.st	Mon Jul 15 14:02:07 2002 +0200
@@ -493,7 +493,7 @@
      the message is assumed to be sent to instances of that class (i.e. offer
      corrections from that hierarchy only)"
 
-    |info n block lcSelector|
+    |info block lcSelector|
 
     info := SortedCollection new.
     info sortBlock:[:a :b | a value > b value].
@@ -680,7 +680,7 @@
      reading and simple sends, where the overhead of compilation is bigger
      than the interpretation overhead."
 
-    |parser tree mustBackup loggedString chgStream value s sReal spc cls
+    |parser tree mustBackup loggedString chgStream value s sReal spc
      nameSpaceQuerySignal|
 
     aStringOrStream isNil ifTrue:[
@@ -6574,6 +6574,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.339 2002-07-11 21:28:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.340 2002-07-15 12:02:07 stefan Exp $'
 ! !
 Parser initialize!