diff --git a/lib/Properties.hs b/lib/Properties.hs
index 04cc26f0aa6c3bd81248efb97cc8d3c1fd1d15b9..d0f0d570419e5161a4d8571e06cbf80513e7da3d 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -608,7 +608,7 @@ propertyRequiredBy req by =
 -- also already exist
 suggestProperty :: HasProperties a => Property -> LintWriter a
 suggestProperty p@(Property name value) =
-  suggestProperty' p $ "set property " <> prettyprint name <> " to \"" <> prettyprint value<>"\"."
+  suggestProperty' p $ "add property " <> prettyprint name <> " to \"" <> prettyprint value<>"\"."
 
 suggestProperty' :: HasProperties a => Property -> Text -> LintWriter a
 suggestProperty' (Property name _) msg =