--- a/IdDict.st	Sat Aug 05 16:05:36 1995 +0200
+++ b/IdDict.st	Tue Aug 08 02:49:43 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/IdDict.st,v 1.12 1995-07-22 19:22:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/IdDict.st,v 1.13 1995-08-08 00:47:13 claus Exp $
 '!
 
 !IdentityDictionary class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/IdDict.st,v 1.12 1995-07-22 19:22:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/IdDict.st,v 1.13 1995-08-08 00:47:13 claus Exp $
 "
 !
 
@@ -91,7 +91,8 @@
      if key was not found, and no unused slots where present"
 
     |index  "{ Class:SmallInteger }"
-     length startIndex probe |
+     length "{ Class:SmallInteger }"
+     startIndex probe |
 
     length := keyArray basicSize.
     index := key identityHash.
@@ -120,7 +121,7 @@
      key is not already in the receiver - used only while growing/rehashing"
 
     |index  "{ Class:SmallInteger }"
-     length|
+     length "{ Class:SmallInteger }"|
 
     length := keyArray basicSize.
     index := key identityHash.