Fix ANSIStrings Slime rule

Johan Brichau · Johan Brichau · commit 499065208853 · 2024-01-13T15:31:34.000+01:00
diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime.package/GRAnsiStringsRule.class/instance/initialize.st
@@ -13,13 +13,14 @@ initialize
 		replace: '`@string includesSubstring: `@subString'
 			with: '(`@string indexOfSubCollection: `@subString startingAt: 0) ~= 0';
 		replace: '``@string findTokens: ``@arg' byEvaluating: [ :node |
-			| argument |
-			argument := node arguments first.
+			| argument newNode |
+			newNode := node copy.
+			argument := newNode arguments first.
 			argument isLiteralNode ifTrue: [
 				argument value isArray
 					ifTrue: [ argument replaceWith: (RBLiteralNode value: (String withAll: argument value)) ].
 				argument value isCharacter
 					ifTrue: [ argument replaceWith: (RBLiteralNode value: (String with: argument value)) ] ].
-			node
+			newNode
 				selector: #subStrings:;
 				yourself ]
