--- a/WeakValueDictionary.st	Tue Sep 09 19:26:58 1997 +0200
+++ b/WeakValueDictionary.st	Tue Sep 09 19:31:56 1997 +0200
@@ -50,10 +50,10 @@
 
 
     [author:]
-        Stefan Vogel
+	Stefan Vogel
 
     [See also:]
-        WeakArray WeakIdentityDictionary WeakIdentitySet
+	WeakArray WeakIdentityDictionary WeakIdentitySet
 "
 ! !
 
@@ -68,14 +68,14 @@
     |ret|
 
     (OperatingSystem blockInterrupts) ifTrue:[
-        "/ already blocked
-        ^ super at:key put:anObject
+	"/ already blocked
+	^ super at:key put:anObject
     ].
 
     [
-        ret := super at:key put:anObject.
+	ret := super at:key put:anObject.
     ] valueNowOrOnUnwindDo:[
-        OperatingSystem unblockInterrupts
+	OperatingSystem unblockInterrupts
     ].
     ^ ret
 
@@ -86,7 +86,7 @@
 
 removeKey:aKey ifAbsent:aBlock
     "remove the association under aKey from the collection,
-     return the value previously stored there..
+     return the value previously stored there.
      If it was not in the collection return the result 
      from evaluating aBlock.
 
@@ -97,14 +97,14 @@
     |ret|
 
     (OperatingSystem blockInterrupts) ifTrue:[
-        "/ already blocked
-        ^ super removeKey:aKey ifAbsent:aBlock
+	"/ already blocked
+	^ super removeKey:aKey ifAbsent:aBlock
     ].
 
     [
-        ret := super removeKey:aKey ifAbsent:aBlock
+	ret := super removeKey:aKey ifAbsent:aBlock
     ] valueNowOrOnUnwindDo:[
-        OperatingSystem unblockInterrupts
+	OperatingSystem unblockInterrupts
     ].
     ^ ret
 
@@ -114,7 +114,7 @@
 
 removeValue:aKey ifAbsent:aBlock
     "remove the association under aValue from the collection,
-     return the key previously stored there..
+     return the key previously stored there.
      If it was not in the collection return the result 
      from evaluating aBlock.
 
@@ -125,14 +125,14 @@
     |ret|
 
     (OperatingSystem blockInterrupts) ifTrue:[
-        "/ already blocked
-        ^ super removeValue:aKey ifAbsent:aBlock
+	"/ already blocked
+	^ super removeValue:aKey ifAbsent:aBlock
     ].
 
     [
-        ret := super removeValue:aKey ifAbsent:aBlock
+	ret := super removeValue:aKey ifAbsent:aBlock
     ] valueNowOrOnUnwindDo:[
-        OperatingSystem unblockInterrupts
+	OperatingSystem unblockInterrupts
     ].
     ^ ret.
 
@@ -160,14 +160,14 @@
     |val|
 
     (OperatingSystem blockInterrupts) ifTrue:[
-        "/ already blocked
-        ^ super includes:anObject.
+	"/ already blocked
+	^ super includes:anObject.
     ].
 
     [
-        val := super includes:anObject.
+	val := super includes:anObject.
     ] valueNowOrOnUnwindDo:[
-        OperatingSystem unblockInterrupts.
+	OperatingSystem unblockInterrupts.
     ].
     ^ val
 
@@ -183,14 +183,14 @@
     |val|
 
     (OperatingSystem blockInterrupts) ifTrue:[
-        "/ already blocked
-        ^ super includesKey:key.
+	"/ already blocked
+	^ super includesKey:key.
     ].
 
     [
-        val := super includesKey:key.
+	val := super includesKey:key.
     ] valueNowOrOnUnwindDo:[
-        OperatingSystem unblockInterrupts.
+	OperatingSystem unblockInterrupts.
     ].
     ^ val
 
@@ -202,5 +202,5 @@
 !WeakValueDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakValueDictionary.st,v 1.8 1997-07-01 13:42:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakValueDictionary.st,v 1.9 1997-09-09 17:31:55 cg Exp $'
 ! !