--- a/RegressionTests__StringTests.st	Sat May 25 09:05:06 2019 +0200
+++ b/RegressionTests__StringTests.st	Sat May 25 09:08:20 2019 +0200
@@ -711,6 +711,9 @@
     n := 'hello wOrLd world' occurrencesOfString:'world'.
     self assert:(n == 1).
 
+    n := 'hello wOrLd world' occurrencesOfString:'world' caseSensitive:false.
+    self assert:(n == 2).
+
     n := 'hello world hello world' occurrencesOfString:'world'.
     self assert:(n == 2).
 
@@ -741,6 +744,11 @@
     n := ' aa bb cc aa bb cc aa bb ' occurrencesOfString:'aa'.  
     self assert:(n == 3).
 
+    n := ' aa bb cc aA bb cc Aa bb ' occurrencesOfString:'aa'.  
+    self assert:(n == 1).
+    n := ' aa bb cc aA bb cc Aa bb ' occurrencesOfString:'aa' caseSensitive:false.  
+    self assert:(n == 3).
+
     "
      self new test31_occurrencesOfString
     "