diff -r 758ae1a35ecb -r 4f5081209498 CharacterArray.st
--- a/CharacterArray.st	Fri Aug 09 16:28:17 2019 +0200
+++ b/CharacterArray.st	Sat Aug 10 10:04:33 2019 +0200
@@ -417,7 +417,6 @@
     "Modified: / 16-01-2018 / 18:59:04 / stefan"
 ! !
 
-
 !CharacterArray class methodsFor:'cleanup'!
 
 lowSpaceCleanup
@@ -680,7 +679,6 @@
     "
 ! !
 
-
 !CharacterArray class methodsFor:'pattern matching'!
 
 matchEscapeCharacter
@@ -1088,7 +1086,6 @@
     ^ Unicode32String
 ! !
 
-
 !CharacterArray class methodsFor:'utilities'!
 
 through:aCharacter in:inStream 
@@ -5432,8 +5429,6 @@
 ! !
 
 
-
-
 !CharacterArray methodsFor:'matching - glob expressions'!
 
 compoundMatch:aString
@@ -5489,7 +5484,24 @@
      'f*;b*' compoundMatch:'ccc' caseSensitive:false
 
      '*.png;*.gif' compoundMatch:'bar.GIF'
-     '*.png;*.gif' compoundMatch:'bar.GIF' caseSensitive:false
+     '*.png;*.gif' compoundMatch:'bar.GIF' caseSensitive:false 
+
+     'foo' compoundMatch:'bar' caseSensitive:false 
+     'Bar' compoundMatch:'bar' caseSensitive:false  
+     'bar' compoundMatch:'bar' caseSensitive:true   
+     'Bar' compoundMatch:'bar' caseSensitive:true       
+     'foo;Bar' compoundMatch:'bar' caseSensitive:false  
+     'foo;bar' compoundMatch:'bar' caseSensitive:true   
+     'foo;Bar' compoundMatch:'bar' caseSensitive:true   
+     'foo;bar' compoundMatch:'Bar' caseSensitive:false  
+     'foo;bar' compoundMatch:'Bar' caseSensitive:true   
+     'foo;bar' compoundMatch:'Bar' caseSensitive:true   
+     '.foo' compoundMatch:'.foo' caseSensitive:true   
+     '.foo' compoundMatch:'.Foo' caseSensitive:true   
+     '.foo' compoundMatch:'.Foo' caseSensitive:false   
+     'bar;.foo' compoundMatch:'.foo' caseSensitive:true     
+     'bar;.foo' compoundMatch:'.Foo' caseSensitive:true     
+     'bar;.foo' compoundMatch:'.Foo' caseSensitive:false    
     "
 
     "Modified: / 15-04-1997 / 15:50:33 / cg"
@@ -7447,7 +7459,6 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
-
 !CharacterArray methodsFor:'special string converting'!
 
 asUnixFilenameString
@@ -9177,7 +9188,6 @@
     "
 ! !
 
-
 !CharacterArray methodsFor:'substring searching'!
 
 findRangeOfString:subString
@@ -9763,7 +9773,6 @@
     ^ aVisitor visitString:self with:aParameter
 ! !
 
-
 !CharacterArray class methodsFor:'documentation'!
 
 version