--- a/WeakIdentitySet.st	Sun Oct 20 17:23:12 1996 +0200
+++ b/WeakIdentitySet.st	Sun Oct 20 17:24:18 1996 +0200
@@ -89,8 +89,13 @@
     |wasBlocked|
 
     wasBlocked := OperatingSystem blockInterrupts.
-    super add:newElement.
-    wasBlocked ifFalse:[OperatingSystem unblockInterrupts]
+    [
+        super add:newElement.
+    ] valueNowOrOnUnwindDo:[
+        wasBlocked ifFalse:[OperatingSystem unblockInterrupts]
+    ]
+
+    "Modified: 20.10.1996 / 14:04:29 / cg"
 !
 
 remove:anObject ifAbsent:exceptionBlock
@@ -171,5 +176,5 @@
 !WeakIdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.18 1996-10-18 12:34:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakIdentitySet.st,v 1.19 1996-10-20 15:24:18 cg Exp $'
 ! !