diff --git a/library/help/help.factor b/library/help/help.factor
index 431c7d250e..9e5d043330 100644
--- a/library/help/help.factor
+++ b/library/help/help.factor
@@ -21,7 +21,7 @@ M: word article-content
 : $title ( article -- )
     title-style [
         title-style [
-            dup [ article-title write ] ($block) $where
+            dup [ 1array $link ] ($block) $where
         ] with-nesting
     ] with-style terpri ;
 
diff --git a/library/help/markup.factor b/library/help/markup.factor
index 8c5c3da47c..fbf9c2c4be 100644
--- a/library/help/markup.factor
+++ b/library/help/markup.factor
@@ -124,7 +124,11 @@ M: link article-title link-name article-title ;
 M: link article-content link-name article-content ;
 M: link summary "Link: " swap link-name unparse append ;
 
-: >link ( obj -- obj ) dup word? [ <link> ] unless ;
+GENERIC: >link ( obj -- obj )
+
+M: word >link ;
+M: link >link ;
+M: object >link <link> ;
 
 : $link ( article -- )
     first link-style [