--- a/RunArray.st	Wed Oct 10 20:40:27 2018 +0200
+++ b/RunArray.st	Thu Oct 11 18:02:49 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  This class is not covered by or part of the ST/X licence.
 
@@ -663,6 +661,8 @@
 
     |otherContents idx1 idx2 runCount1 runValue1 runCount2 runValue2|
 
+    aCollection size == self size ifFalse:[^ false].
+    
     aCollection class ~~ self class ifTrue:[
         idx1 := 1.
         aCollection isSequenceable ifTrue:[