(when (not (and (equal start 0) (equal end (length value))))
(signal 'attribute-validation-condition
:message (format nil "~A must be a valid email address."
- (getf (description.properties attribute) :label))
+ (label attribute))
:attribute attribute))))
\ No newline at end of file