--- a/SortedCollection.st	Sun Jan 16 04:38:33 1994 +0100
+++ b/SortedCollection.st	Sun Jan 16 04:47:41 1994 +0100
@@ -30,7 +30,7 @@
 while [:a :b | a > b] defines descening order.
 The default sortBlock for SortedCollections is the first one.
 
-$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.5 1994-01-08 16:23:33 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SortedCollection.st,v 1.6 1994-01-16 03:46:34 claus Exp $
 '!
 
 !SortedCollection class methodsFor:'initialization'!
@@ -185,7 +185,6 @@
      can be limited i.e. it can be done much faster."
 
     |index      "{ Class: SmallInteger }"
-     mySize     "{ Class: SmallInteger }"
      tally      "{ Class: SmallInteger }" |
 
     index := self findIndexFor:anObject.