diff --git a/basis/help/help-tests.factor b/basis/help/help-tests.factor
index e38f2fc15d..e091278359 100644
--- a/basis/help/help-tests.factor
+++ b/basis/help/help-tests.factor
@@ -3,3 +3,4 @@ USING: tools.test help kernel ;
 
 [ 3 throw ] must-fail
 [ ] [ :help ] unit-test
+[ ] [ f print-topic ] unit-test
\ No newline at end of file
diff --git a/basis/help/help.factor b/basis/help/help.factor
index cd80a73dad..272bdc1db3 100644
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -112,6 +112,7 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
     ] with-style nl ;
 
 : print-topic ( topic -- )
+    >link
     last-element off dup $title
     article-content print-content nl ;