--- a/Bag.st	Fri Jul 11 11:14:55 2014 +0200
+++ b/Bag.st	Fri Jul 11 11:54:37 2014 +0200
@@ -164,7 +164,7 @@
         streamContents:[:stream | 
             contents associationsDo:[:each | stream nextPut:each value -> each key ]
         ])
-        sort:[:x :y | x >= y ];
+        sort:[:x :y | y < x];
         yourself
 
     "
@@ -422,6 +422,7 @@
     "Modified: 1.3.1996 / 21:42:44 / cg"
 ! !
 
+
 !Bag methodsFor:'printing & storing'!
 
 printElementsDo:aBlock
@@ -529,10 +530,10 @@
 !Bag class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.50 2014-02-20 14:03:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.51 2014-07-11 09:54:37 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.50 2014-02-20 14:03:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.51 2014-07-11 09:54:37 stefan Exp $'
 ! !