--- a/Bag.st	Tue Oct 10 18:05:47 2017 +0200
+++ b/Bag.st	Tue Oct 10 18:06:26 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -113,6 +115,14 @@
      Elements will be compared using equality compare (i.e. #= not #== identity)."
 
     ^ self equalityNew:size
+!
+
+newWithCapacity:size
+    "return a new empty Collection with capacity for n elements."
+
+    ^ self new:size
+
+    "Created: / 10-10-2017 / 17:49:15 / stefan"
 ! !
 
 !Bag methodsFor:'Compatibility-Dolphin'!