--- a/CharacterArray.st	Tue Mar 28 11:57:52 2017 +0200
+++ b/CharacterArray.st	Tue Mar 28 14:58:58 2017 +0200
@@ -345,7 +345,6 @@
     "Created: 3.8.1997 / 18:16:40 / cg"
 ! !
 
-
 !CharacterArray class methodsFor:'cleanup'!
 
 lowSpaceCleanup
@@ -4874,8 +4873,6 @@
 ! !
 
 
-
-
 !CharacterArray methodsFor:'matching - glob expressions'!
 
 compoundMatch:aString
@@ -7586,7 +7583,7 @@
         tester := [:c1 :c2 | c1 sameAs: c2 ].
         startIndex := self findFirst:[:c | c sameAs:firstChar] startingAt:index.
     ].
-    [startIndex == 0] whileFalse:[
+    [startIndex ~~ 0] whileTrue:[
         runIdx := startIndex.
         found := true.
         1 to:subSize do:[:i |
@@ -7610,7 +7607,8 @@
     ].
     ^ exceptionBlock value
 
-    "Modified: 23.2.1996 / 15:35:15 / cg"
+    "Modified: / 23-02-1996 / 15:35:15 / cg"
+    "Modified: / 28-03-2017 / 14:55:35 / stefan"
 !
 
 indexOfSubCollection:subString startingAt:index ifAbsent:exceptionBlock caseSensitive:caseSensitive ignoreDiacritics:ignoreDiacritics
@@ -8224,7 +8222,6 @@
     ^ aVisitor visitString:self with:aParameter
 ! !
 
-
 !CharacterArray class methodsFor:'documentation'!
 
 version