massive refactoring in preparation of release.

[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 3c1c78a..9160f25 100644 (file)
--- 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