--- a/RunArray.st	Sun Feb 10 14:51:26 2019 +0100
+++ b/RunArray.st	Sun Feb 10 14:51:30 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  This class is not covered by or part of the ST/X licence.
 
@@ -1255,6 +1253,50 @@
 
 !RunArray methodsFor:'queries'!
 
+includes:anElement
+    "return true, if the receiver includes an element which is equal
+     to the argument, anElement; false otherwise.
+     Redefined to prevent the inherited loop over individual accesses via #at:,
+     which would be very inefficient."
+
+    contentsArray notNil ifTrue:[
+        contentsArray pairWiseDo:[:len :val |
+            (anElement = val) ifTrue:[
+                ^ true
+            ].
+        ].
+    ].
+    ^ false
+
+    "Modified: / 14.5.1996 / 15:54:45 / cg"
+    "Created: / 30.10.1997 / 15:38:02 / cg"
+!
+
+includesIdentical:anElement
+    "return true, if the receiver includes the argument, anElement; false otherwise.
+     Redefined to prevent the inherited loop over individual accesses via #at:,
+     which would be very inefficient."
+
+    contentsArray notNil ifTrue:[
+        contentsArray pairWiseDo:[:len :val |
+            (anElement == val) ifTrue:[
+                ^ true
+            ].
+        ].
+    ].
+    ^ false
+
+    "Created: / 30.10.1997 / 15:38:30 / cg"
+!
+
+isEmpty
+    "Am I empty or not. Returns a boolean"
+
+    ^ contentsArray size == 0
+
+    "Modified: 11.5.1996 / 13:35:17 / cg"
+!
+
 size
     "Answer how many elements the receiver contains.
      This is not the number of runs (but the simulated number of elements)."
@@ -1374,52 +1416,6 @@
     "Modified: / 30.10.1997 / 15:33:29 / cg"
 ! !
 
-!RunArray methodsFor:'testing'!
-
-includes:anElement
-    "return true, if the receiver includes an element which is equal
-     to the argument, anElement; false otherwise.
-     Redefined to prevent the inherited loop over individual accesses via #at:,
-     which would be very inefficient."
-
-    contentsArray notNil ifTrue:[
-        contentsArray pairWiseDo:[:len :val |
-            (anElement = val) ifTrue:[
-                ^ true
-            ].
-        ].
-    ].
-    ^ false
-
-    "Modified: / 14.5.1996 / 15:54:45 / cg"
-    "Created: / 30.10.1997 / 15:38:02 / cg"
-!
-
-includesIdentical:anElement
-    "return true, if the receiver includes the argument, anElement; false otherwise.
-     Redefined to prevent the inherited loop over individual accesses via #at:,
-     which would be very inefficient."
-
-    contentsArray notNil ifTrue:[
-        contentsArray pairWiseDo:[:len :val |
-            (anElement == val) ifTrue:[
-                ^ true
-            ].
-        ].
-    ].
-    ^ false
-
-    "Created: / 30.10.1997 / 15:38:30 / cg"
-!
-
-isEmpty
-    "Am I empty or not. Returns a boolean"
-
-    ^ contentsArray size == 0
-
-    "Modified: 11.5.1996 / 13:35:17 / cg"
-! !
-
 !RunArray class methodsFor:'documentation'!
 
 version