--- a/Bag.st	Sat May 11 11:17:13 1996 +0200
+++ b/Bag.st	Sat May 11 12:15:31 1996 +0200
@@ -130,7 +130,7 @@
     "Modified: 1.3.1996 / 21:43:06 / cg"
 !
 
-add:newObject withOccurences:anInteger
+add:newObject withOccurrences:anInteger
     "add the argument, anObject anInteger times to the receiver.
      Returns the object.
 
@@ -144,6 +144,7 @@
     ^ newObject
 
     "Modified: 1.3.1996 / 21:43:12 / cg"
+    "Created: 11.5.1996 / 12:13:43 / cg"
 !
 
 remove:oldObject ifAbsent:anExceptionBlock
@@ -303,5 +304,5 @@
 !Bag class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.22 1996-04-25 16:19:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.23 1996-05-11 10:15:31 cg Exp $'
 ! !