--- a/UIPainterView.st	Mon Feb 09 12:31:49 2004 +0100
+++ b/UIPainterView.st	Mon Feb 09 14:26:21 2004 +0100
@@ -1139,7 +1139,7 @@
 
     alreadyInSuperclass := targetClass superclass canUnderstand:selector.
 
-    code := '!!' , targetClass name , ' methodsFor:''menu actions''!!\\'.
+    code := '!!' , targetClass name , ' methodsFor:''' , CodeGeneratorTool categoryForMenuActionsMethods , '''!!\\'.
 
     selector = 'openAboutThisApplication' ifTrue:[
         code := code ,