--- a/Bag.st	Tue Jun 25 13:23:45 2013 +0200
+++ b/Bag.st	Tue Jun 25 13:23:48 2013 +0200
@@ -435,6 +435,12 @@
     ^ (self occurrencesOf:anObject) > 0
 !
 
+isFixedSize
+    "return true if the receiver cannot grow"
+
+    ^ false
+!
+
 occurrencesOf:anObject
     "return how many times anObject is in the receiver"
 
@@ -444,10 +450,10 @@
 !Bag class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.44 2013-03-25 21:27:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.45 2013-06-25 11:23:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.44 2013-03-25 21:27:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.45 2013-06-25 11:23:48 cg Exp $'
 ! !