--- a/Bag.st	Tue Mar 30 14:29:24 2010 +0200
+++ b/Bag.st	Tue Mar 30 15:38:23 2010 +0200
@@ -353,6 +353,14 @@
     "Modified: 1.3.1996 / 21:42:44 / cg"
 ! !
 
+!Bag methodsFor:'printing & storing'!
+
+printElementsDo:aBlock
+    contents keysAndValuesDo:[:key :value|
+        aBlock value:('%1(*%2)' bindWith:key with:value).
+    ]
+! !
+
 !Bag methodsFor:'private'!
 
 initContents
@@ -408,5 +416,9 @@
 !Bag class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.40 2009-09-16 11:47:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.41 2010-03-30 13:38:23 stefan Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.41 2010-03-30 13:38:23 stefan Exp $'
 ! !