X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/dee565d0d3252060ce31e8de57708ff9edb054d5..e1645f63189477f1b39a173a41fcbbfefb5e88a6:/src/validate-email-address.lisp

diff --git a/src/validate-email-address.lisp b/src/validate-email-address.lisp
index 8f3712d..ede7ae1 100644
--- a/src/validate-email-address.lisp
+++ b/src/validate-email-address.lisp
@@ -22,5 +22,5 @@
 	 (not (< 0 (length value))))
 	(signal 'attribute-validation-condition
 		:message (format nil "You must enter a value for ~A."
-			      (getf (attribute.plist attribute) :label))
+				 (getf (description.properties attribute) :label))
 		:attribute attribute))))
\ No newline at end of file