--- a/CodeGeneratorTool.st	Wed Sep 15 13:57:00 2021 +0100
+++ b/CodeGeneratorTool.st	Wed Sep 15 16:10:12 2021 +0100
@@ -1219,7 +1219,7 @@
 
     (visitedClass includesSelector:#acceptVisitor:forEffect:) ifFalse:
         [self addChange:
-            (CodeGenerator new
+            (Tools::CodeGenerator new
                 class: visitedClass;
                 protocol: 'visiting';
                 source: ('acceptVisitor: visitor forEffect: effect
@@ -1238,7 +1238,7 @@
 
     (visitorClass includesSelector:(sel, 'forEffect:') asSymbol) ifFalse:[
         self addChange:
-            (CodeGenerator new
+            (Tools::CodeGenerator new
                 class: visitorClass;
                 protocol: 'visiting';
                 source: ('`@sel: anObject forEffect: effect
@@ -1290,7 +1290,7 @@
 
     (visitorClass includesSelector:sel) ifFalse:[
         self addChange:
-            (CodeGenerator new
+            (Tools::CodeGenerator new
                 class: visitorClass;
                 protocol: 'visiting';
                 source: ('`@sel: anObject