--- a/ArrayedCollection.st	Fri May 19 15:33:11 1995 +0200
+++ b/ArrayedCollection.st	Wed May 24 14:44:58 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.17 1995-05-02 23:55:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.18 1995-05-24 12:41:13 claus Exp $
 '!
 
 !ArrayedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.17 1995-05-02 23:55:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.18 1995-05-24 12:41:13 claus Exp $
 "
 !
 
@@ -200,8 +200,10 @@
 
     "special case for Array, which has no named instance vars"
 
-    self class instSize == 0 ifTrue:[
-	^ self class new:size
+    |cls|
+
+    (cls := self class) instSize == 0 ifTrue:[
+	^ cls new:size
     ].
     ^ super copyEmptyAndGrow:size
 ! !