help.lint.checks: show which strings are problematic

diff --git a/basis/help/lint/checks/checks.factor b/basis/help/lint/checks/checks.factor
index 4097364f31140ad37c48964d9ec2f8604bac42a5..612f7a8100923104025de7874a83fbb6b06c5d19 100644 (file)
--- a/basis/help/lint/checks/checks.factor
+++ b/basis/help/lint/checks/checks.factor
@@ -154,8 +154,11 @@ SYMBOL: vocab-articles
     ] bi ;
 
 : check-whitespace ( str1 str2 -- )
-    [ ?last " (" member? ] [ ?first " )." member? ] bi* or
-    [ "Missing whitespace between strings" simple-lint-error ] unless ;
+    2dup [ ?last " (" member? ] [ ?first " ).,;:" member? ] bi* or
+    [ 2drop ] [
+        "Missing whitespace between strings ``%s'' and ``%s''"
+        sprintf simple-lint-error
+    ] if ;
 
 : check-bogus-nl ( element -- )
     { { $nl } { { $nl } } } [ head? ] with any? [