--- a/OrderedDictionary.st	Mon Jun 08 20:33:31 2015 +0200
+++ b/OrderedDictionary.st	Mon Jun 08 21:22:21 2015 +0200
@@ -23,6 +23,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Dictionary subclass:#OrderedDictionary
 	instanceVariableNames:'order'
 	classVariableNames:''
@@ -1101,13 +1103,22 @@
     order sort:aSortBlock
 ! !
 
+!OrderedDictionary methodsFor:'testing'!
+
+isOrdered
+    "return true, if the receiver's elements are ordered.
+     Re-redefined to true here, as I do have an order"
+
+    ^ true
+! !
+
 !OrderedDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedDictionary.st,v 1.47 2014-07-11 09:14:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedDictionary.st,v 1.48 2015-06-08 19:22:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedDictionary.st,v 1.47 2014-07-11 09:14:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedDictionary.st,v 1.48 2015-06-08 19:22:21 cg Exp $'
 ! !