diff --git a/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st b/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st
index ea3f6e73..f83e0222 100644
--- a/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st
+++ b/repository/Grease-Pharo110-Slime.package/GRAnsiCharactersRule.class/instance/initialize.st
@@ -6,7 +6,7 @@ initialize
 		replace: 'Character value: ``@expr'
 		with: 'Character codePoint: ``@expr'.
 	self
-		replace: '`#source to: `#target'
+		replace: '`#source `{:node | node value isCharacter }` to: `#target'
 		byEvaluating: [ :node |
 			(node receiver value isCharacter and: [
 				 node arguments first value isCharacter ])
diff --git a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st
index a7eaeecf..ddc22642 100644
--- a/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st
+++ b/repository/Grease-Tests-Pharo-Slime.package/GRReSlimeTest.class/instance/testAnsiCharacterRule.st
@@ -5,6 +5,7 @@ testAnsiCharacterRule
 	class := self defineSubClassOf: #GRObject.
 	self compile: 'character Character value: 123' in: class.
 	self compile: 'characterRange $a to: $c' in: class.
+	self compile: 'integerRange 1 to: 10' in: class.
 	self 
 		runTransformation: GRAnsiCharactersRule
 		changes: #('character Character codePoint: 123' 'characterRange ''abc''')
\ No newline at end of file