--- a/MenuEditor.st	Mon Mar 15 10:40:55 2004 +0100
+++ b/MenuEditor.st	Fri Mar 19 13:16:48 2004 +0100
@@ -2343,34 +2343,36 @@
 !
 
 doGenerateAspectMethods
-    "genearte aspect messages
-    "
-    |cls redefineAspectMethods|
+    "compile aspect and action methods"
+
+    |cls redefineAspectMethods category|
 
     specClass ifNil:[
         self warn:'Define the class first !!'.
-      ^ self
+        ^ self
     ].
     redefineAspectMethods := self redefineAspectMethodsChannel value.
 
     cls := self resolveName:specClass.
     cls ifNil:[
         self warn:'Class ', specClass asString, ' does not exist!!'.
-      ^ self  
+        ^ self  
     ].
 
+    category := UserPreferences current categoryForMenuActionsMethods.
+
     self collectActionSelectors do:[:aSelector|
-        self createActionMethodFor:aSelector
-                                in:cls
-                          category:CodeGeneratorTool categoryForMenuActionsMethods
-                          redefine:redefineAspectMethods.
+        self 
+            createActionMethodFor:aSelector in:cls
+            category:category
+            redefine:redefineAspectMethods.
     ].
 
     self collectAspectSelectors do:[:anAspect|
-        self createAspectMethodFor:anAspect
-                                in:cls
-                          category:CodeGeneratorTool categoryForMenuActionsMethods
-                          redefine:redefineAspectMethods
+        self 
+            createAspectMethodFor:anAspect in:cls
+            category:category
+            redefine:redefineAspectMethods
     ].
 ! !