--- a/OrderedCollection.st	Mon Jun 19 14:04:09 2000 +0200
+++ b/OrderedCollection.st	Mon Jun 19 16:52:17 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic' }"
+
 SequenceableCollection subclass:#OrderedCollection
 	instanceVariableNames:'contentsArray firstIndex lastIndex'
 	classVariableNames:''
@@ -199,6 +201,7 @@
     "
 ! !
 
+
 !OrderedCollection methodsFor:'accessing'!
 
 after:anObject ifAbsent:exceptionBlock
@@ -1811,10 +1814,19 @@
                 endingAt:lastIndex) ~~ 0
 
     "Modified: 12.4.1996 / 17:57:09 / cg"
+!
+
+isOrderedCollection
+    "return true, if the receiver is some kind of ordered collection (or list etc);
+     true is returned here - the method is only redefined in Object."
+
+    ^ true
+
+
 ! !
 
 !OrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.73 1999-10-06 22:31:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.74 2000-06-19 14:52:17 ps Exp $'
 ! !