# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1031671775 -7200
# Node ID 3584b9380c857a0582dad53e6830e660f2370012
# Parent  41a67e231af6f3d60497b4ef9f83974be6dd5114
*** empty log message ***

diff -r 41a67e231af6 -r 3584b9380c85 ArrayedCollection.st
--- a/ArrayedCollection.st	Tue Sep 10 16:53:33 2002 +0200
+++ b/ArrayedCollection.st	Tue Sep 10 17:29:35 2002 +0200
@@ -377,7 +377,7 @@
      - you should write your collection classes to avoid the use of become. 
      You have been warned."
 
-    |newArray oldSize senderContext senderSenderContext|
+    |newArray oldSize sender|
 
     oldSize := self size.
     (newSize ~~ oldSize) ifTrue:[
@@ -389,13 +389,9 @@
             "/
             'ArrayedCollection [info]: slow grow operation (' infoPrint.
             self class name infoPrint. ') via ' infoPrint.
-            senderContext := thisContext sender.
-            [senderContext receiver == self] whileTrue:[
-                senderContext methodPrintString infoPrint.
-                senderSenderContext := senderContext sender.
-                ' from ' infoPrint. senderSenderContext methodPrintString infoPrintCR.
-                senderContext := senderSenderContext.
-            ].
+            sender := thisContext sender.
+            sender methodPrintString infoPrint. 
+            ' from ' infoPrint. sender sender methodPrintString infoPrintCR.
         ].
 
         newArray := self species new:newSize.
@@ -442,5 +438,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.51 2002-09-10 14:53:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.52 2002-09-10 15:29:35 cg Exp $'
 ! !