--- a/Object.st	Mon Jun 19 16:52:17 2000 +0200
+++ b/Object.st	Mon Jun 19 16:53:43 2000 +0200
@@ -534,6 +534,7 @@
      ^(self deepCopyUsing:(IdentityDictionary new)) postDeepCopyFrom:self
 ! !
 
+
 !Object methodsFor:'accessing'!
 
 at:index
@@ -6186,6 +6187,7 @@
     ^ self
 ! !
 
+
 !Object methodsFor:'secure message sending'!
 
 askFor:aSelector
@@ -7419,6 +7421,13 @@
     ^ false
 !
 
+isOrderedCollection
+    "return true, if the receiver is some kind of ordered collection (or list etc);
+     false is returned here - the method is only redefined in OrderedCollection."
+
+    ^ false
+!
+
 isPoint
     "return true, if the receiver is some kind of point;
      false is returned here - the method is only redefined in Point."
@@ -7914,9 +7923,10 @@
     "Modified: 20.5.1996 / 10:28:53 / cg"
 ! !
 
+
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.324 2000-04-13 09:46:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.325 2000-06-19 14:53:43 ps Exp $'
 ! !
 Object initialize!