diff --git a/basis/help/help.factor b/basis/help/help.factor
index 9493a9068c..734e16572f 100644
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@@ -104,23 +104,19 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
 : ($navigation-table) ( element -- )
     help-path-style get table-style [ $table ] with-variable ;
 
-: $navigation-table ( topic -- )
-    [
-        [ prev-article [ 1array \ $long-link "Prev:" $navigation-row ] when* ]
-        [ next-article [ 1array \ $long-link "Next:" $navigation-row ] when* ]
-        bi
-    ] { } make [ ($navigation-table) ] unless-empty ;
+: ($navigation-prev) ( topic -- )
+    [ prev-article [ 1array \ $long-link "" $navigation-row ] when* ] 
+    { } make [ ($navigation-table) ] unless-empty ;
+
+: ($navigation-next) ( topic -- )
+    [ next-article [ 1array \ $long-link "" $navigation-row ] when* ] 
+    { } make [ ($navigation-table) ] unless-empty ;
 
 : ($navigation-path) ( topic -- )
     help-path-style get
        [ help-path [ reverse $breadcrumbs ] unless-empty ]
     with-style ;
 
-: ($navigation-prev-next) ( topic -- )
-    help-path-style get 
-       [ $navigation-table ]
-    with-style ;
-
 : $title ( topic -- )
     title-style get [
         title-style get [
@@ -128,12 +124,20 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
         ] with-nesting
     ] with-style ;
 
+: $navigation-prev ( topic -- )
+    title-style get 
+    [ help-path-style get [ ($navigation-prev) ] with-style ]
+    with-style ;
+
+: $navigation-next ( topic -- )
+    title-style get 
+    [ help-path-style get [ ($navigation-next) ] with-style ]
+    with-style ;
+
 : print-topic ( topic -- )
     >link
     last-element off
-    [ article-content print-content nl ] 
-    [ ($blank-line) ($navigation-prev-next) ] 
-    bi ;
+    article-content print-content ;
 
 SYMBOL: help-hook
 
diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor
index a97100652c..707e83b0fa 100644
--- a/basis/ui/tools/browser/browser.factor
+++ b/basis/ui/tools/browser/browser.factor
@@ -42,6 +42,20 @@ M: browser-gadget set-history-value
     help-header-background <solid> >>interior 
     { 1 0 } >>fill f track-add ;
 
+: <help-footer-prev> ( browser-gadget -- gadget )
+    model>> [ '[ _ $navigation-prev ] try ] <pane-control>
+    toolbar-background <solid> >>interior ;
+
+: <help-footer-next> ( browser-gadget -- gadget )
+    model>> [ '[ _ $navigation-next ] try ] <pane-control>
+    toolbar-background <solid> >>interior ;
+
+: add-help-footer ( track -- track )
+    horizontal <track> with-lines
+    dupd swap <help-footer-prev> 1 track-add
+    dupd swap <help-footer-next> 1 track-add
+    f track-add ;
+
 : <help-pane> ( browser-gadget -- gadget )
     model>> [ '[ _ print-topic ] try ] <pane-control> ;
 
@@ -77,7 +91,8 @@ M: browser-gadget set-history-value
         dup <search-field> >>search-field
         add-browser-toolbar
         add-help-header
-        add-help-pane ;
+        add-help-pane
+        add-help-footer ;
 
 M: browser-gadget graft*
     [ add-definition-observer ] [ call-next-method ] bi ;