--- a/MethodFinderWindow.st	Tue Feb 20 21:53:09 2018 +0100
+++ b/MethodFinderWindow.st	Tue Feb 27 12:01:16 2018 +0100
@@ -1089,23 +1089,23 @@
         keysAndValuesDo:[:key :value |
             |newValue|
 
-            newValue := value replString:'data1' withString:(tempReceiver key).
+            newValue := value copyReplaceString:'data1' withString:(tempReceiver key).
             (tempArguments size) >= 1 ifTrue:[
                 newValue := newValue replString:'data2'
                         withString:(tempArguments keyAt:1)
             ].
             (tempArguments size) > 1 ifTrue:[
-                newValue := newValue replString:'data3'
+                newValue := newValue copyReplaceString:'data3'
                         withString:(tempArguments keyAt:2).
             ].
             (tempArguments size) > 2 ifTrue:[
-                newValue := newValue replString:'data4'
+                newValue := newValue copyReplaceString:'data4'
                         withString:(tempArguments keyAt:3).
             ].
             (tempArguments size) > 3 ifTrue:[
                 self halt:'unimplemented'.
             ].
-             "    newValue:= value replString: 'data3' withString:(self messageAnswer key). "
+             "    newValue:= value copyReplaceString: 'data3' withString:(self messageAnswer key). "
             newValue := newValue , ' --> ' , (tempAnswer key).
             newValue replaceAll:Character cr with:Character space.
             resultArray at:key put:newValue.
@@ -1115,6 +1115,7 @@
     receiver := tempReceiver
 
     "Modified: / 26-09-2011 / 12:42:28 / cg"
+    "Modified: / 27-02-2018 / 11:37:58 / stefan"
 !
 
 searchPatternMatchesInBackground