X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/0cafb6ab55d78bf3888b28363c3ef527cd3620a7..e9c163726f466dee83a8dbe7d952f6aaff4345b6:/src/validation/email-address.lisp

diff --git a/src/validation/email-address.lisp b/src/validation/email-address.lisp
index 2a9ae3f..2f26127 100644
--- a/src/validation/email-address.lisp
+++ b/src/validation/email-address.lisp
@@ -23,5 +23,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 (description.properties attribute) :label))
+			       (label attribute))
 	      :attribute attribute))))
\ No newline at end of file