--- a/Array.st	Thu Jul 31 18:46:12 1997 +0200
+++ b/Array.st	Thu Jul 31 21:37:31 1997 +0200
@@ -838,8 +838,8 @@
 #endif /* UNROLL_LOOPS2 */
 			    for (; index <= indexHigh; index++) {
 				el = __InstPtr(self)->i_instvars[index];
+				if (InterruptPending != nil) goto interruptX;
 		continueX:
-				if (InterruptPending != nil) goto interruptX;
 				(*codeVal)(BLOCK_ARG, el);
 			    }
 			    RETURN (self);
@@ -2189,5 +2189,5 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.93 1997-07-22 13:33:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.94 1997-07-31 19:37:31 cg Exp $'
 ! !