--- a/Collection.st	Tue Nov 13 10:17:26 2001 +0100
+++ b/Collection.st	Tue Nov 13 13:21:48 2001 +0100
@@ -13,11 +13,11 @@
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#Collection
-        instanceVariableNames:''
-        classVariableNames:'InvalidKeySignal EmptyCollectionSignal ValueNotFoundSignal
-                NotEnoughElementsSignal RecursiveCollectionStoreStringSignal'
-        poolDictionaries:''
-        category:'Collections-Abstract'
+	instanceVariableNames:''
+	classVariableNames:'InvalidKeySignal EmptyCollectionSignal ValueNotFoundSignal
+		NotEnoughElementsSignal RecursiveCollectionStoreStringSignal'
+	poolDictionaries:''
+	category:'Collections-Abstract'
 !
 
 !Collection class methodsFor:'documentation'!
@@ -2241,6 +2241,15 @@
     ^ self size == 0
 !
 
+isEmptyOrNil
+    "Squeak compatibility:
+     return true if I am nil or an empty collection - true here, iff the receivers size is 0"
+
+    ^ self isEmpty
+
+    "Created: / 13.11.2001 / 13:17:12 / cg"
+!
+
 isNilOrEmptyCollection
     "return true if I am nil or an empty collection - true here, iff the receivers size is 0"
 
@@ -2317,6 +2326,6 @@
 !Collection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.117 2001-11-05 15:46:17 james Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Collection.st,v 1.118 2001-11-13 12:21:48 cg Exp $'
 ! !
 Collection initialize!