--- a/RunArray.st	Mon Jun 03 19:50:14 2013 +0200
+++ b/RunArray.st	Mon Jun 03 20:40:19 2013 +0200
@@ -659,7 +659,7 @@
 
         aCollection do:[:element |
             runCount1 == 0 ifTrue:[
-                idx1+1 > contentsArray size ifTrue:[^ false].
+                idx1 >= contentsArray size ifTrue:[^ false].
 
                 runCount1 := contentsArray at:idx1.
                 runValue1 := contentsArray at:idx1+1.
@@ -669,7 +669,7 @@
             runCount1 := runCount1 - 1.
         ].
         runCount1 ~~ 0 ifTrue:[^ false].
-        idx1+1 > contentsArray size ifFalse:[^ false].
+        idx1 >= contentsArray size ifFalse:[^ false].
         ^ true
     ].
     otherContents := aCollection getContentsArray.
@@ -683,7 +683,7 @@
 
     [true] whileTrue:[
         runCount1 == 0 ifTrue:[
-            idx1+1 > contentsArray size ifTrue:[
+            idx1 >= contentsArray size ifTrue:[
                 idx2+1 <= otherContents size ifTrue:[^ false].
                 runCount2 ~~ 0 ifTrue:[^ false].
                 ^ true.
@@ -693,7 +693,7 @@
             idx1 := idx1+2.
         ].        
         runCount2 == 0 ifTrue:[
-            idx2+1 > otherContents size ifTrue:[
+            idx2 >= otherContents size ifTrue:[
                 ^ false
             ].
             runCount2 := otherContents at:idx2.
@@ -1331,10 +1331,10 @@
 !RunArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.32 2013-04-04 07:58:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.33 2013-06-03 18:40:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.32 2013-04-04 07:58:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.33 2013-06-03 18:40:19 cg Exp $'
 ! !