--- a/UIPainterView.st	Tue Mar 04 17:07:56 2014 +0100
+++ b/UIPainterView.st	Wed Mar 05 23:14:25 2014 +0100
@@ -1108,7 +1108,7 @@
                 ].
 
         "/ exported aspects - need setter methods
-        exportSels := (treeView exportedAspects ? #()) collect:[:entry | (entry subAspect , ':') asSymbol].
+        exportSels := (treeView exportedAspects ? #()) collect:[:entry | (entry subAspect) asMutator].
         self generateCodeFrom:exportSels in:cls
                 do:[:aSel|
                     |aspect|