X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/db3b46cbba6ebce2f4dd3b4b7cbd841d575cf3b9..e1645f63189477f1b39a173a41fcbbfefb5e88a6:/src/validation/email-address.lisp?ds=sidebyside

diff --git a/src/validation/email-address.lisp b/src/validation/email-address.lisp
index 3c1c78a..9160f25 100644
--- a/src/validation/email-address.lisp
+++ b/src/validation/email-address.lisp
@@ -24,5 +24,5 @@
       (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 (attribute.plist attribute) :label))
+				 (getf (description.properties attribute) :label))
 		:attribute attribute)))))
\ No newline at end of file