--- a/ArrayedCollection.st	Thu Mar 21 15:25:08 1996 +0100
+++ b/ArrayedCollection.st	Thu Mar 21 15:29:19 1996 +0100
@@ -11,10 +11,10 @@
 "
 
 SequenceableCollection subclass:#ArrayedCollection
-	 instanceVariableNames:''
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Collections-Abstract'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Collections-Abstract'
 !
 
 !ArrayedCollection class methodsFor:'documentation'!
@@ -265,7 +265,14 @@
 !
 
 removeAll
-    'ARRCOLL: Warning: slow remove operation (' infoPrint.
+    "remove all elements from the receiver.
+     For ArrayedCollections (which are actually fixed-size collections),
+     this is a slow operation, since a #become: is required to update
+     all owners. Better use a collection which is prepared for growing
+     (i.e. an OrderedCollection).
+     We output a warning message here, to remind you about that."
+
+    'ARRCOLL: Warning: slow removeAll operation (' infoPrint.
     self class name infoPrint. ')' infoPrintNL.
 
     self become:(self copyEmpty)
@@ -274,6 +281,8 @@
      #(1 2 3 4 5) copy removeAll    
      #(1 2 3 4 5) removeAll    
     "
+
+    "Modified: 21.3.1996 / 15:28:08 / cg"
 ! !
 
 !ArrayedCollection methodsFor:'testing'!
@@ -302,5 +311,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.30 1996-02-21 14:10:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.31 1996-03-21 14:29:19 cg Exp $'
 ! !