--- a/CharacterArray.st	Thu May 24 14:56:35 2018 +0200
+++ b/CharacterArray.st	Thu May 24 14:56:53 2018 +0200
@@ -4503,7 +4503,7 @@
         ].
         ^ StringCollection with:left with:right
     ].
-    self error:'substring not present in receiver' mayProceed:true.
+    self proceedableError:'substring not present in receiver'.
     ^ self
 
     "
@@ -4513,7 +4513,8 @@
      'hello > error' splitAtString:'->' withoutSeparators:true
     "
 
-    "Created: 25.11.1995 / 11:04:18 / cg"
+    "Created: / 25-11-1995 / 11:04:18 / cg"
+    "Modified: / 24-05-2018 / 14:55:52 / Claus Gittinger"
 ! !
 
 !CharacterArray methodsFor:'displaying'!
@@ -7793,7 +7794,7 @@
     subSize := subString size.
     subSize == 0 ifTrue:[
         subString isString ifFalse:[
-           self error:'non string argument' mayProceed:true.
+           self proceedableError:'non string argument'.
         ].
         "empty string does not match"
         ^ 0.
@@ -7841,6 +7842,7 @@
 
     "Modified: / 23-02-1996 / 15:35:15 / cg"
     "Modified (comment): / 28-03-2017 / 16:05:48 / stefan"
+    "Modified: / 24-05-2018 / 14:55:38 / Claus Gittinger"
 !
 
 indexOfSubCollection:subString startingAt:index ifAbsent:exceptionBlock caseSensitive:caseSensitive ignoreDiacritics:ignoreDiacritics
@@ -7859,7 +7861,7 @@
     subSize := subString size.
     subSize == 0 ifTrue:[
         subString isString ifFalse:[
-           self error:'non string argument' mayProceed:true.
+           self proceedableError:'non string argument'.
         ].
         "empty string does not match"
         ^ 0.
@@ -7915,6 +7917,8 @@
      'bla depot bla dépots' indexOfSubCollection:'dep' startingAt:1 ifAbsent:0 caseSensitive:false ignoreDiacritics:false. 5
      'bla depot bla dépots' indexOfSubCollection:'dep' startingAt:6 ifAbsent:0 caseSensitive:false ignoreDiacritics:false. 0
     "
+
+    "Modified: / 24-05-2018 / 14:55:43 / Claus Gittinger"
 !
 
 lastIndexOfString:aString