--- a/Set.st	Thu Oct 23 21:12:01 1997 +0200
+++ b/Set.st	Sat Oct 25 01:03:09 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 25-oct-1997 at 2:01:42 pm'                  !
+
 Collection subclass:#Set
 	instanceVariableNames:'tally keyArray'
 	classVariableNames:'DeletedEntry'
@@ -148,6 +150,22 @@
     "Modified: 19.3.1997 / 16:07:59 / cg"
 ! !
 
+!Set class methodsFor:'utilities'!
+
+rehashAllSubInstances
+    "rehash all sets & dictionaries.
+     Useful utility if hash/identityHash method was changed
+     of some object which is known to be kept in a set"
+
+     self allSubInstances do:[:s | s rehash]
+
+    "
+     Set rehashAllSubInstances
+    "
+
+    "Created: / 24.10.1997 / 23:13:44 / cg"
+! !
+
 !Set methodsFor:'accessing'!
 
 at:index
@@ -755,6 +773,6 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.52 1997-03-21 09:34:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.53 1997-10-24 23:03:09 cg Exp $'
 ! !
 Set initialize!