--- a/UIPainterView.st	Sat Feb 21 15:40:27 1998 +0100
+++ b/UIPainterView.st	Sat Feb 21 16:21:44 1998 +0100
@@ -564,7 +564,7 @@
 !
 
 generateAspectMethodFor:aspect spec:protoSpec inClass:targetClass
-    |modelClass modelValue modelGen|
+    |modelClass modelValue modelGen code|
 
     modelClass := protoSpec defaultModelClassFor:aspect.
     modelValue := protoSpec defaultModelValueFor:aspect.
@@ -575,12 +575,14 @@
         modelGen := modelValue storeString , ' asValue'
     ].
 
-    ^ ('!!' , targetClass name , ' methodsFor:''aspects''!!\\' ,
+    code := '!!' , targetClass name , ' methodsFor:''aspects''!!\\' ,
       aspect , '\' ,
       '    "automatically generated by UIPainter ..."\\' ,
       '    "*** the code below creates a default model when invoked."\' ,
       '    "*** (which may not be the one you wanted)"\' ,
-      '    "*** Please change as required and accept in the browser."\' ,
+      '    "*** Please change as required and accept in the browser."\'.
+
+    code := (code ,
       '\' ,
       '    |holder|\' ,
       '\' ,
@@ -588,7 +590,8 @@
       '        builder aspectAt:#' , aspect , ' put:(holder := ' , ' ' , modelGen , ').\' ,
       '    ].\' ,
       '    ^ holder\' ,
-      '!! !!\\') withCRs
+      '!! !!\\') withCRs.
+    ^ code
 
     "Modified: / 26.10.1997 / 19:01:15 / cg"
 !
@@ -803,8 +806,8 @@
             , '    "do not manually edit this - the painter/builder may not be able to\'
             , '     handle the specification if its corrupted."\\'
             , '    "\'
-            , '     UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\'
-            , '     ' , className , ' new openInterface:#' , methodName , '\'
+            , ('     UIPainter new openOnClass:' , className , ' andSelector:#' , methodName , '\')
+            , ('     ' , className , ' new openInterface:#' , methodName , '\')
             , '    "\'.
 
     methodName = 'windowSpec' ifTrue:[