--- a/RunArray.st	Thu Mar 06 21:53:21 2014 +0100
+++ b/RunArray.st	Fri Mar 07 23:06:25 2014 +0100
@@ -697,7 +697,7 @@
     idx2 := 1.
     runCount2 := 0.
 
-    [true] whileTrue:[
+    [
         runCount1 == 0 ifTrue:[
             idx1 >= contentsArray size ifTrue:[
                 idx2+1 <= otherContents size ifTrue:[^ false].
@@ -725,7 +725,7 @@
             runCount2 := runCount2 - runCount1.
             runCount1 := 0.
         ].
-    ].
+    ] loop.
 
     "
      'hello' asText sameStringAndEmphasisAs: 'hello' asText
@@ -1386,10 +1386,10 @@
 !RunArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.35 2013-09-05 23:12:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.36 2014-03-07 22:06:25 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.35 2013-09-05 23:12:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.36 2014-03-07 22:06:25 stefan Exp $'
 ! !