--- a/UIPainterView.st	Sat Mar 21 00:20:47 1998 +0100
+++ b/UIPainterView.st	Sat Mar 21 01:44:00 1998 +0100
@@ -714,7 +714,7 @@
 
 generateCodeFrom:aListOfSelectors in:aClass do:aBlock
 
-    self class redefineMethods ifTrue:[
+    self class redefineAspectMethods ifTrue:[
         aListOfSelectors do:[:aSelector|
             (aSelector isArray or:[aClass implements:aSelector]) ifFalse:[
                 aBlock value:aSelector