--- a/ChangesBrowser.st	Mon Sep 30 22:59:44 1996 +0200
+++ b/ChangesBrowser.st	Mon Sep 30 23:02:04 1996 +0200
@@ -726,7 +726,7 @@
     "compare a change with current version"
 
     |aStream chunk sawExcla parseTree thisClass cat oldSource newSource
-     parser sel oldMethod outcome showDiff d t1 t2 cls selector isLoaded
+     parser sel oldMethod outcome showDiff d t1 t2 selector isLoaded
      method|
 
     aStream := self streamForChange:changeNr.
@@ -1530,7 +1530,7 @@
 sourceOfMethodChange:changeNr
     "return a method-changes source code, or nil if its not a methodChange."
 
-    |aStream chunk sawExcla parseTree parser sourceChunk|
+    |aStream chunk sawExcla parseTree sourceChunk|
 
     aStream := self streamForChange:changeNr.
     aStream isNil ifTrue:[^ nil].
@@ -2316,5 +2316,5 @@
 !ChangesBrowser  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.89 1996-09-10 18:19:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.90 1996-09-30 21:00:59 cg Exp $'
 ! !