--- a/MappedCollection.st Thu Apr 25 15:11:23 2013 +0200
+++ b/MappedCollection.st Fri Apr 26 11:46:00 2013 +0200
@@ -104,6 +104,7 @@
"return the contents as a bag"
|contents|
+
contents := Bag new.
map do:[:key | contents add:(domain at:key)].
^ contents
@@ -186,6 +187,6 @@
!MappedCollection class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.19 2013-04-02 12:35:42 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.20 2013-04-26 09:46:00 cg Exp $'
! !