--- a/ViewStyle.st	Fri Sep 18 13:44:03 1998 +0200
+++ b/ViewStyle.st	Fri Sep 18 13:44:39 1998 +0200
@@ -103,15 +103,17 @@
 
     |v i k2|
 
-    (self includesKey:aKey) ifTrue:[^ super at:aKey ifAbsent:default].
+    (self includesKey:aKey) ifTrue:[
+	^ (super at:aKey ifAbsent:default) value
+    ].
     (i := aKey indexOf:$.) ~~ 0 ifTrue:[
 	k2 := (aKey copyTo:i-1) , (aKey copyFrom:i+1) asUppercaseFirst.
 	(self includesKey:k2) ifTrue:[^ super at:k2 ifAbsent:default].
     ].
-    ^ default
+    ^ default value
 
-    "Created: 14.10.1997 / 00:21:15 / cg"
-    "Modified: 14.10.1997 / 00:26:48 / cg"
+    "Created: / 14.10.1997 / 00:21:15 / cg"
+    "Modified: / 15.9.1998 / 21:47:13 / cg"
 !
 
 colorAt:aKey
@@ -198,5 +200,5 @@
 !ViewStyle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.15 1998-09-08 10:02:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ViewStyle.st,v 1.16 1998-09-18 11:44:39 cg Exp $'
 ! !