         dup '[
             _ dup word-help
             [ check-values ]
-            [ nip [ check-see-also ] [ check-markup ] bi ] 2bi
+            [ nip [ check-nulls ] [ check-see-also ] [ check-markup ] tri ] 2bi
         ] check-something
     ] [ drop ] if ;
 
 : check-words ( words -- ) [ check-word ] each ;
 
+: check-article-title ( article -- )
+    article-title first LETTER?
+    [ "Article title must begin with a capital letter" throw ] unless ;
+
 : check-article ( article -- )
     [ with-interactive-vocabs ] vocabs-quot set
-    dup '[ _ article-content check-markup ] check-something ;
+    dup '[
+        _
+        [ check-article-title ]
+        [ article-content check-markup ] bi
+    ] check-something ;
 
 : files>vocabs ( -- assoc )
     vocabs

combinators combinators.short-circuit splitting debugger
hashtables sorting effects vocabs vocabs.loader assocs editors
continuations classes.predicate macros math sets eval
vocabs.parser words.symbol values ;
IN: help.lint

SYMBOL: vocabs-quot

! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: fry accessors sequences parser kernel help help.markup
help.topics words strings classes tools.vocabs namespaces make
