--- a/RunArray.st	Sun May 12 14:19:17 1996 +0200
+++ b/RunArray.st	Sun May 12 16:00:39 1996 +0200
@@ -416,7 +416,7 @@
 
         "/ check if its better added to the next run ...
 
-        runIndex < runSz ifTrue:[
+        runIndex < (runSz-1) ifTrue:[
             nextIdx := runIndex + 2.
             nextVal := contentsArray at:nextIdx+1.
             nextVal = anObject ifTrue:[
@@ -505,7 +505,7 @@
      Transcript showCr:c.   
     "
 
-    "Modified: 12.5.1996 / 12:44:33 / cg"
+    "Modified: 12.5.1996 / 15:55:32 / cg"
 !
 
 size
@@ -837,5 +837,5 @@
 !RunArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.7 1996-05-12 12:19:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.8 1996-05-12 14:00:39 cg Exp $'
 ! !