cms := CompiledMethod allInstances select: [:each |
each package ifNil: [ false ] ifNotNil: [:p |
p name beginsWith: 'Grease' ]].
cms do: [:cm |
((RBRefactoryChangeFactory instance)
addMethodSource: (ReMethodSourceCleaner clean: cm sourceCode) in: cm origin) execute ]