--- a/UIPainterView.st	Fri Apr 19 11:36:27 2013 +0200
+++ b/UIPainterView.st	Thu Apr 25 15:10:44 2013 +0200
@@ -1114,7 +1114,7 @@
 
                     (aFilterOrEmpty isNil or:[aFilterOrEmpty includes:aSel]) ifTrue:[
                         (definedMethodSelectors includes:aSel) ifFalse:[
-                            aspect := (aSel copyWithoutLast:1) asSymbol.
+                            aspect := (aSel copyButLast:1) asSymbol.
                             thisCode := (self generateAspectSetMethodFor:aspect spec:protoSpec inClass:cls).
                             codePieces add:thisCode.
                             definedMethodSelectors add:aSel.