--- a/MenuEditor.st	Mon Jan 31 18:30:45 2011 +0100
+++ b/MenuEditor.st	Mon Jan 31 18:31:01 2011 +0100
@@ -2618,7 +2618,7 @@
     (cls includesSelector:selector) ifFalse:[
         category := UserPreferences current categoryForMenuActionsMethods.
 
-        CodeGeneratorTool
+        SmalltalkCodeGeneratorTool
             createActionMethodFor:selector in:cls
             category:category
             redefine:(self redefineAspectMethodsChannel value).
@@ -2627,6 +2627,7 @@
     UserPreferences current systemBrowserClass openInClass:cls selector:selector
 
     "Created: / 21-10-2010 / 14:07:32 / cg"
+    "Modified: / 31-01-2011 / 18:28:59 / cg"
 !
 
 doBrowseEnabledMethod
@@ -2665,18 +2666,20 @@
     category := UserPreferences current categoryForMenuActionsMethods.
 
     self collectActionSelectors do:[:aSelector|
-        CodeGeneratorTool
+        SmalltalkCodeGeneratorTool
             createActionMethodFor:aSelector in:cls
             category:category
             redefine:redefineAspectMethods.
     ].
 
     self collectAspectSelectors do:[:anAspect|
-        CodeGeneratorTool
+        SmalltalkCodeGeneratorTool
             createAspectMethodFor:anAspect in:cls
             category:category
             redefine:redefineAspectMethods
     ].
+
+    "Modified: / 31-01-2011 / 18:29:06 / cg"
 ! !
 
 !MenuEditor methodsFor:'user actions-building'!