--- a/UIPainterView.st	Thu Feb 17 16:01:27 2000 +0100
+++ b/UIPainterView.st	Fri Feb 18 14:36:25 2000 +0100
@@ -906,11 +906,12 @@
     spec size == 0 ifTrue:[^ nil].
 
     "/ make it an array ...
-    spec := spec collect:[:entry |
-                entry type isNil ifTrue:[
-                    entry subAspect
+    spec := spec collect:[:entry | |subAspect type|
+                subAspect := entry subAspect asSymbol.
+                (type := entry type) isNil ifTrue:[
+                    subAspect
                 ] ifFalse:[
-                    Array with:entry subAspect with:entry type
+                    Array with:subAspect with:type asSymbol
                 ].
             ].
     spec := spec asArray.
@@ -928,10 +929,14 @@
      these can be connected to aspects of an embedding application
      (if this app is embedded in a subCanvas)."
 
-    ^ ' , spec storeString , '\!!\'.
+    ^ #(\'.
+    spec do:[:el | code := code , ('        ' , el storeString , '\') ].
+    code := code , '      ).\'.
+    code := code , '\!!\'.
     code := code withCRs.
     ^ code
 
+    "Modified: / 18.2.2000 / 02:08:34 / cg"
 !
 
 generateAspectSetMethodFor:aspect spec:protoSpec inClass:targetClass