--- a/UIPainterView.st	Fri Jan 18 11:27:31 2008 +0100
+++ b/UIPainterView.st	Mon Jan 21 14:32:07 2008 +0100
@@ -750,17 +750,17 @@
         ].
 
         (aProp spec aspectSelectors) do:[:aSel |
-            (aSel isArray or:[aSel isBoolean]) ifFalse:[
+            (aSel isString or:[aSel isSymbol]) ifTrue:[
                 aTwoArgBlock value:(aSel asSymbol) value:#channelAspect
             ].
         ].
         aProp spec actionSelectors do:[:aSel|
-            (aSel isArray or:[aSel isBoolean]) ifFalse:[
+            (aSel isString or:[aSel isSymbol]) ifTrue:[
                 aTwoArgBlock value:(aSel asSymbol) value:#actionSelector
             ].
         ].
         aProp spec valueSelectors do:[:aSel|
-            (aSel isArray or:[aSel isBoolean]) ifFalse:[
+            (aSel isString or:[aSel isSymbol]) ifTrue:[
                 aTwoArgBlock value:(aSel asSymbol) value:#valueSelector
             ].
         ]
@@ -1175,7 +1175,7 @@
 generateCodeFrom:aListOfSelectors in:aClass do:aBlock
     |realSelectors redefCondition redefMessage|
 
-    realSelectors := aListOfSelectors reject:[:sel | sel isArray or:[sel isBoolean]].
+    realSelectors := aListOfSelectors select:[:sel | sel isString or:[sel isSymbol]].
 
     self class redefineAspectMethods ifTrue:[
         redefCondition := [:cls :sel | (cls includesSelector:sel) not].
@@ -1566,8 +1566,9 @@
         ].
 
 "/        aspects addAll:aProp spec actionSelectors.
-        aspects addAll:aProp spec valueSelectors.
-        aspects addAll:aProp spec aspectSelectors.
+
+        aspects addAll:(aProp spec valueSelectors select:[:a | a isString or:[a isSymbol]]).
+        aspects addAll:(aProp spec aspectSelectors select:[:a | a isString or:[a isSymbol]]).
     ].
 
     ^ aspects asOrderedCollection sort.