--- a/OrderedCollection.st	Sat Mar 28 10:01:50 2015 +0100
+++ b/OrderedCollection.st	Sat Mar 28 12:51:43 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 SequenceableCollection subclass:#OrderedCollection
 	instanceVariableNames:'contentsArray firstIndex lastIndex'
 	classVariableNames:''
@@ -2084,6 +2086,12 @@
     ^ lastIndex < firstIndex
 !
 
+isEmptyOrNil
+    "return true, if the receiver has no elements"
+
+    ^ lastIndex < firstIndex
+!
+
 isFixedSize
     "return true if the receiver cannot grow - this will vanish once
      Arrays and Strings learn how to grow ..."
@@ -2136,10 +2144,10 @@
 !OrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.115 2014-12-01 12:04:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.116 2015-03-28 11:51:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.115 2014-12-01 12:04:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.116 2015-03-28 11:51:43 cg Exp $'
 ! !