diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor index b491fd43c9..288e46cda7 100644 --- 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 ;