--- a/Bag.st	Mon Jun 08 21:22:27 2015 +0200
+++ b/Bag.st	Mon Jun 08 21:23:24 2015 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Collection subclass:#Bag
 	instanceVariableNames:'contents'
 	classVariableNames:''
@@ -535,6 +537,14 @@
     ^ false
 !
 
+isOrdered
+    "return true, if the receiver's elements are ordered.
+     Redefined to return false here, because the order of keys and values
+     may change due to rehashing, when elements are added/removed"
+
+    ^ false
+!
+
 occurrencesOf:anObject
     "return how many times anObject is in the receiver"
 
@@ -544,10 +554,10 @@
 !Bag class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.53 2014-10-08 10:29:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.54 2015-06-08 19:23:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.53 2014-10-08 10:29:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Bag.st,v 1.54 2015-06-08 19:23:24 cg Exp $'
 ! !