--- a/WeakIdSet.st	Fri Mar 01 21:25:46 1996 +0100
+++ b/WeakIdSet.st	Fri Mar 01 21:26:42 1996 +0100
@@ -11,10 +11,10 @@
 "
 
 IdentitySet subclass:#WeakIdentitySet
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Collections-Unordered'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Collections-Unordered'
 !
 
 !WeakIdentitySet class methodsFor:'documentation'!
@@ -79,7 +79,7 @@
 !
 
 remove:anObject ifAbsent:exceptionBlock
-    "redefined to avoid synchronization promlems, in case
+    "redefined to avoid synchronization problems, in case
      of interrupts 
      (otherwise, there could be some other operation on the receiver
        done by another process, which garbles my contents)"
@@ -88,10 +88,12 @@
 
     wasBlocked := OperatingSystem blockInterrupts.
     [
-	super remove:anObject ifAbsent:exceptionBlock
+        super remove:anObject ifAbsent:exceptionBlock
     ] valueNowOrOnUnwindDo:[
-	wasBlocked ifFalse:[OperatingSystem unblockInterrupts]
+        wasBlocked ifFalse:[OperatingSystem unblockInterrupts]
     ]
+
+    "Modified: 1.3.1996 / 21:16:10 / cg"
 ! !
 
 !WeakIdentitySet methodsFor:'element disposal'!
@@ -158,5 +160,5 @@
 !WeakIdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakIdSet.st,v 1.13 1996-02-02 10:17:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakIdSet.st,v 1.14 1996-03-01 20:26:42 cg Exp $'
 ! !