diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index 7c991fbc12..5855c1df4a 100644
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -292,14 +292,17 @@ PRIVATE>
     "See also" $heading $links ;
 
 <PRIVATE
+: ?unwrap ( word/wrapper -- word )
+    dup wrapper? [ wrapped>> ] when ;
+
 :: update-related-words ( words -- affected-words )
     words words |[ affected word |
-        word "related" [ affected union words ] change-word-prop
+        word ?unwrap "related" [ affected union words ] change-word-prop
     ] reduce ;
 
 :: clear-unrelated-words ( words affected-words -- )
     affected-words words diff
-    [ "related" [ words diff ] change-word-prop ] each ;
+    [ ?unwrap "related" [ words diff ] change-word-prop ] each ;
 
 : notify-related-words ( affected-words -- )
     fast-set notify-definition-observers ;