help.lint.checks: better error message for non-unique $see-also.

diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor
index b491fd43c9936954577d63746c4c038fe0d5bd7e..288e46cda74906ab8c57780f29b1cbb4ab137d52 100644 (file)
--- a/basis/help/lint/checks/checks.factor
+++ b/basis/help/lint/checks/checks.factor
@@ -105,9 +105,8 @@ SYMBOL: vocab-articles
     [ "$values should not contain null" simple-lint-error ] when ;
 
 : check-see-also ( element -- )
-    \ $see-also swap elements [
-        rest all-unique? t assert=
-    ] each ;
+    \ $see-also swap elements [ rest all-unique? ] all?
+    [ "$see-also are not unique" simple-lint-error ] unless ;
 
 : vocab-exists? ( name -- ? )
     [ lookup-vocab ] [ all-vocabs get member? ] bi or ;