--- a/UIPainterView.st	Tue Jul 01 22:02:18 2014 +0200
+++ b/UIPainterView.st	Fri Jul 04 12:27:14 2014 +0200
@@ -1117,7 +1117,7 @@
 
                     (aFilterOrEmpty isNil or:[aFilterOrEmpty includes:aSel]) ifTrue:[
                         (definedMethodSelectors includes:aSel) ifFalse:[
-                            aspect := (aSel copyButLast:1) asSymbol.
+                            aspect := (aSel copyButLast) asSymbol.
                             thisCode := (self generateAspectSetMethodFor:aspect spec:protoSpec inClass:cls).
                             codePieces add:thisCode.
                             definedMethodSelectors add:aSel.