--- a/Array.st	Sat Jan 18 00:30:21 1997 +0100
+++ b/Array.st	Sat Jan 18 00:31:09 1997 +0100
@@ -522,7 +522,7 @@
     "evaluate the argument, aBlock for each element in the collection.
      - reimplemented for speed"
 
-    |home sz "{ Class: SmallInteger }"|
+    | sz "{ Class: SmallInteger }"|
 
     sz := self size.
 %{
@@ -688,7 +688,7 @@
                         if ((rHome == nil) || (__qSpace(rHome) >= STACKSPACE))
 #endif
                         {
-                            for (; index < nIndex; index++) {
+			    for (index=indexLow; index <= indexHigh; index++) {
                                 if (InterruptPending != nil) __interruptL(@line);
 
                                 (*codeVal)(BLOCK_ARG, __InstPtr(self)->i_instvars[index]);
@@ -711,7 +711,7 @@
 #               define IBLOCK_ARG       (__BlockInstPtr(aBlock)->b_home)
 #endif
 
-                for (; index < nIndex; index++) {
+		for (index=indexLow; index <= indexHigh; index++) {
                     REGISTER OBJFUNC codeVal;
 
                     if (InterruptPending != nil) __interruptL(@line);
@@ -747,7 +747,7 @@
             /*
              * not a block - send it #value:
              */
-            for (; index < nIndex; index++) {
+	    for (index=indexLow; index <= indexHigh; index++) {
                 if (InterruptPending != nil) __interruptL(@line);
 
                 (*val.ilc_func)(aBlock, 
@@ -2026,5 +2026,5 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.79 1997-01-17 14:41:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.80 1997-01-17 23:31:09 cg Exp $'
 ! !