--- a/UIPainterView.st	Wed Jan 28 15:05:27 1998 +0100
+++ b/UIPainterView.st	Wed Jan 28 15:15:03 1998 +0100
@@ -611,7 +611,7 @@
                     ].
                     skip ifFalse:[
                         "/ kludge ..
-                        (protoSpec isMemberOf:ActionButtonSpec) ifTrue:[
+                        (protoSpec isKindOf:ActionButtonSpec) ifTrue:[
                             thisCode := (self generateActionMethodFor:modelSelector spec:protoSpec inClass:cls).
                         ] ifFalse:[
                             thisCode := (self generateAspectMethodFor:modelSelector spec:protoSpec inClass:cls).