--- a/MethodFinder.st	Sat Jun 08 17:28:18 2019 +0200
+++ b/MethodFinder.st	Sat Jun 08 17:31:43 2019 +0200
@@ -1037,6 +1037,8 @@
         chopTo: contractAtBeginningTo: contractAtEndTo: contractTo:
     "ST/X comparing"
         compareWith: sameCharacters: sameEmphasisAs: sameStringAndEmphasisAs:
+        match: match:caseSensitive: matches: matches:caseSensitive:
+        matchesRegex: allRegexMatches: prefixMatchesRegex:
     "ST/X searching"
         indexOfSeparator indexOfSeparatorStartingAt:
         lastIndexOfSeparator lastIndexOfSeparatorStartingAt:
@@ -1054,8 +1056,6 @@
     ) do: [:sel | Approved add: sel].
     #(
         #'byteAt:put:' "translateToLowercase" 
-        match: match:caseSensitive: matches: matches:caseSensitive:
-        matchesRegex: allRegexMatches: prefixMatchesRegex:
     ) do: [:sel | AddAndRemove add: sel].
 
 "Symbol"
@@ -1325,7 +1325,7 @@
 "Do not forget class messages for each of these classes"
 
     "Modified: / 13-11-2001 / 19:28:41 / cg"
-    "Modified: / 08-06-2019 / 17:28:07 / Claus Gittinger"
+    "Modified: / 08-06-2019 / 17:30:19 / Claus Gittinger"
 !
 
 load:dataWithAnswers