--- a/OrderedCollection.st	Wed Nov 21 18:24:00 2007 +0100
+++ b/OrderedCollection.st	Wed Nov 21 18:24:05 2007 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 SequenceableCollection subclass:#OrderedCollection
@@ -216,6 +215,7 @@
     "
 ! !
 
+
 !OrderedCollection methodsFor:'accessing'!
 
 at:anInteger
@@ -523,32 +523,6 @@
     "Modified: / 12.11.1997 / 17:58:05 / cg"
 !
 
-addLast:anObject
-    "add the argument, anObject to the end of the collection
-     Return the argument, anObject."
-
-    |idx "{ Class:SmallInteger }"|
-
-    idx := lastIndex.
-
-    (idx == contentsArray size) ifTrue:[
-        self makeRoomAtLast.
-        idx := lastIndex.
-    ].
-    lastIndex := idx := idx + 1.
-    contentsArray basicAt:idx put:anObject.
-    ^ anObject
-
-    "
-     |c|
-     c := #(4 3 2 1) asOrderedCollection.
-     c add:'here'
-    "
-
-    "Modified: / 12.4.1996 / 13:26:57 / cg"
-    "Created: / 12.11.1997 / 17:46:29 / cg"
-!
-
 clearContents
     "remove all elements from the collection but keep the contentsArray.
      Useful for huge lists, if the contents will be rebuild soon (using #add:) 
@@ -1893,5 +1867,5 @@
 !OrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.91 2006-09-18 19:49:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.92 2007-11-21 17:24:05 stefan Exp $'
 ! !