diff --git a/basis/help/help-docs.factor b/basis/help/help-docs.factor
index aacfcaec62..ebe7e0f659 100644
--- a/basis/help/help-docs.factor
+++ b/basis/help/help-docs.factor
@@ -195,7 +195,14 @@ HELP: $subsections
     { $markup-example { $subsections "sequences" nth each } }
 } ;
 
-{ $subsection $subsections $link } related-words
+HELP: $related-subsections 
+{ $values { "children" "a " { $link sequence } " of one or more " { $link topic } "s" } }
+{ $description "A version of " { $link $subsections } " which also calls " { $link related-words } " on " { $snippet "children" } ", relating its contents together." }
+{ $examples
+    { $markup-example { $related-subsections keep + } }
+} ; 
+
+{ $subsection $subsections $related-subsections $link $vocab-subsection } related-words
 
 HELP: $vocab-subsection
 { $values { "element" "a markup element of the form " { $snippet "{ title vocab }" } } }
diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index 4cf5c00d75..d6c4abdf56 100644
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -251,6 +251,11 @@ PRIVATE>
 : $subsections ( children -- )
     [ $subsection* ] each ($blank-line) ;
 
+DEFER: related-words
+
+: $related-subsections ( children -- ) 
+    [ related-words ] [ $subsections ] bi ; 
+
 : $subsection ( element -- )
     check-first $subsection* ;