--- a/ArrayedCollection.st	Tue Jun 06 06:01:20 1995 +0200
+++ b/ArrayedCollection.st	Tue Jun 27 04:15:21 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.18 1995-05-24 12:41:13 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.19 1995-06-27 02:11:19 claus Exp $
 '!
 
 !ArrayedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.18 1995-05-24 12:41:13 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.19 1995-06-27 02:11:19 claus Exp $
 "
 !
 
@@ -150,7 +150,7 @@
 
     newSize := aCollection size.
     newCollection := self new:newSize.
-    aCollection isSequenceableCollection ifTrue:[
+    aCollection isSequenceable ifTrue:[
 	"aCollection has indexed elements"
 	newCollection replaceFrom:1 to:newSize with:aCollection startingAt:1
     ] ifFalse:[
@@ -218,7 +218,13 @@
 
     |newArray oldSize|
 
-"/    'ARRCOLL: slow grow operation warning' errorPrintNL.
+    "/
+    "/ output a warning - you should rewrite your application
+    "/ to use some collection which implements grow: more efficient
+    "/ (i.e. use OrderedCollection instead of Array ..)
+    "/
+    'ARRCOLL: Warning: slow grow operation (' infoPrint.
+    self class name infoPrint. ')' infoPrintNL.
 
     oldSize := self size.
     (newSize ~~ oldSize) ifTrue:[