--- a/UIPainterView.st	Mon Oct 11 17:54:39 1999 +0200
+++ b/UIPainterView.st	Mon Oct 11 17:55:21 1999 +0200
@@ -665,15 +665,20 @@
 !
 
 generateAspectMethodFor:aspect spec:protoSpec inClass:targetClass
-    |modelClass modelValue modelGen code|
+    |modelClass modelValueString modelValue modelGen code|
 
     modelClass := protoSpec defaultModelClassFor:aspect.
-    modelValue := protoSpec defaultModelValueFor:aspect.
+    modelValueString := protoSpec defaultModelValueStringFor:aspect.
+    modelValueString notNil ifTrue:[
+        modelGen := modelValueString
+    ] ifFalse:[
+        modelValue := protoSpec defaultModelValueFor:aspect.
+        modelValue isNil ifTrue:[
+            modelGen := modelClass name , ' new'
+        ] ifFalse:[
+            modelGen := modelValue storeString , ' asValue'
+        ].
 
-    modelValue isNil ifTrue:[
-        modelGen := modelClass name , ' new'
-    ] ifFalse:[
-        modelGen := modelValue storeString , ' asValue'
     ].
 
     code := '!!' , targetClass name , ' methodsFor:''aspects''!!\\' ,