--- a/IdentitySet.st	Mon Oct 04 11:32:33 1993 +0100
+++ b/IdentitySet.st	Wed Oct 13 01:19:00 1993 +0100
@@ -27,7 +27,7 @@
 Since compare is on identity, hashing is also done via
 identityHash instead of hash.
 
-%W% %E%
+$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.3 1993-10-13 00:16:12 claus Exp $
 
 written jan 93 by claus
 '!
@@ -41,9 +41,7 @@
      Redefined to compare for identity instead of equality"
 
     |index      "{ Class:SmallInteger }"
-     length     "{ Class:SmallInteger }"
-     startIndex "{ Class:SmallInteger }" 
-     probe |
+     length startIndex probe |
 
     length := contentsArray basicSize.
     startIndex := key identityHash \\ length + 1.
@@ -70,9 +68,7 @@
      identity instead of equality"
 
     |index      "{ Class:SmallInteger }"
-     length     "{ Class:SmallInteger }"
-     startIndex "{ Class:SmallInteger }"
-     probe |
+     length startIndex probe |
 
     length := contentsArray basicSize.
     startIndex := key identityHash \\ length + 1.