--- a/Set.st	Tue Feb 05 13:23:42 2008 +0100
+++ b/Set.st	Tue Feb 05 14:49:29 2008 +0100
@@ -280,21 +280,21 @@
     "add the argument, anObject to the receiver.
 
      WARNING: do not add elements while iterating over the receiver.
-	      Iterate over a copy to do this."
+              Iterate over a copy to do this."
 
     |index "{ Class: SmallInteger }"|
 
-    anObject isNil ifTrue:[
-	^ self invalidElementError.
+    anObject isNil ifTrue:[  
+        ^ self invalidElementError.
     ].
 
     index := self findKeyOrNil:anObject.
     (keyArray basicAt:index) isNil ifTrue:[
-	"/ not already there
-	keyArray basicAt:index put:anObject.
-	tally := tally + 1.
+        "/ not already there
+        keyArray basicAt:index put:anObject.
+        tally := tally + 1.
 
-	self fullCheck.
+        self fullCheck.
     ].
     ^ anObject
 
@@ -463,7 +463,6 @@
     "Modified: 30.1.1997 / 14:58:08 / cg"
 ! !
 
-
 !Set methodsFor:'comparing'!
 
 = aCollection
@@ -1016,7 +1015,6 @@
     ^ tally
 ! !
 
-
 !Set methodsFor:'testing'!
 
 capacity 
@@ -1118,7 +1116,7 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.100 2007-06-04 07:26:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.101 2008-02-05 13:49:29 sr Exp $'
 ! !
 
 Set initialize!