-(define-layered-method display-attribute :around
- ((attribute standard-attribute))
- (funcall-with-layer-context
+(define-layered-method display-attribute :around ((attribute standard-attribute))
+ (with-attribute-context (attribute)
+ (call-next-method))
+ #+nil(funcall-with-layer-context