Drop usage of defaction

[clinton/lisp-on-lines.git] / src / validation / email-address.lisp

diff --git a/src/validation/email-address.lisp b/src/validation/email-address.lisp
index 2a9ae3f..2f26127 100644 (file)
--- 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