diff --git a/src/RewriteRuleTools/ScopeSelectorPresenter.class.st b/src/RewriteRuleTools/ScopeSelectorPresenter.class.st
index 3b69ca7..abf6aac 100644
--- a/src/RewriteRuleTools/ScopeSelectorPresenter.class.st
+++ b/src/RewriteRuleTools/ScopeSelectorPresenter.class.st
@@ -62,7 +62,7 @@ ScopeSelectorPresenter >> initializeClassesList [
 	classesListWithFilterPresenter listPresenter
 		headerTitle: 'Classes';
 		display: [ :item | item name ];
-		displayIcon: [ :elem | elem systemIcon ];
+		displayIcon: [ :elem | elem iconNamed: elem systemIconName ];
 		sortingBlock: [ :a :b | a name < b name ];
 		whenSelectionChangedDo: [ :selection | self classesChanged ];
 		beMultipleSelection