--- a/Bag.st	Tue Aug 22 15:57:33 2000 +0200
+++ b/Bag.st	Tue Aug 22 16:04:56 2000 +0200
@@ -70,7 +70,7 @@
     "return a new empty Bag with initial space for size elements.
      Elements will be compared using equality compare (i.e. #= not #== identity)."
 
-    ^ super new initContents:size
+    ^ self basicNew initContents:size
 !
 
 identityNew
@@ -84,13 +84,13 @@
     "return a new empty Bag with initial space for size elements.
      Elements will be compared using identity compare (i.e. #== not #= equality)."
 
-    ^ super new initContentsForIdentity:size
+    ^ self basicNew initContentsForIdentity:size
 !
 
 new
     "return a new empty Bag which compares for equality (i.e. not identity)"
 
-    ^ super new initContents
+    ^ self basicNew initContents
 !
 
 new:size
@@ -321,5 +321,5 @@
 !Bag class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.26 2000-08-22 13:56:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.27 2000-08-22 14:04:56 cg Exp $'
 ! !