--- a/OrderedCollection.st	Wed Feb 22 14:09:58 2017 +0100
+++ b/OrderedCollection.st	Wed Feb 22 14:10:27 2017 +0100
@@ -312,6 +312,7 @@
 ! !
 
 
+
 !OrderedCollection methodsFor:'accessing'!
 
 at:anInteger
@@ -2262,6 +2263,14 @@
     "return true, if the receiver has any elements"
 
     ^ lastIndex >= firstIndex
+!
+
+notEmptyOrNil
+    "return true, if the receiver has any elements"
+
+    ^ lastIndex >= firstIndex
+
+    "Created: / 22-02-2017 / 14:08:43 / stefan"
 ! !
 
 !OrderedCollection methodsFor:'tuning'!