--- a/Bag.st	Fri Jan 22 13:25:31 2016 +0100
+++ b/Bag.st	Fri Jan 22 13:26:30 2016 +0100
@@ -237,21 +237,21 @@
 !
 
 remove:oldObject ifAbsent:anExceptionBlock
-    "Remove oldObject from the collection.
+    "Remove one occurrence of oldObject from the collection.
      If it was not present, return the value of the exceptionBlock;
      otherwise return the removed object.
 
      WARNING: do not add/remove elements while iterating over the receiver.
-	      Iterate over a copy to do this."
+              Iterate over a copy to do this."
 
     |count|
 
     count := contents at:oldObject ifAbsent:0.
     (count == 0) ifTrue:[^ anExceptionBlock value].
     (count == 1) ifTrue:[
-	contents removeKey:oldObject
+        contents removeKey:oldObject
     ] ifFalse:[
-	contents at:oldObject put:(count - 1)
+        contents at:oldObject put:(count - 1)
     ].
     ^ oldObject
 
@@ -554,10 +554,10 @@
 !Bag class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.54 2015-06-08 19:23:24 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.54 2015-06-08 19:23:24 cg Exp $'
+    ^ '$Header$'
 ! !