--- a/UIPainter.st Mon Jan 21 14:32:07 2008 +0100
+++ b/UIPainter.st Mon Jan 21 14:32:13 2008 +0100
@@ -4967,8 +4967,12 @@
spec exportedAspectsAddKey:(aProp model) type:nil.
propsSpec := aProp spec.
- propsSpec aspectSelectors do:[:aKey|spec exportedAspectsAddKey:aKey type:nil].
- propsSpec actionSelectors do:[:aKey|spec exportedAspectsAddKey:aKey type:#action].
+ propsSpec aspectSelectors
+ select:[:a | a isString or:[a isSymbol]]
+ thenDo:[:aKey|spec exportedAspectsAddKey:aKey type:nil].
+ propsSpec actionSelectors
+ select:[:a | a isString or:[a isSymbol]]
+ thenDo:[:aKey|spec exportedAspectsAddKey:aKey type:#action].
].
^ spec
!