diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index 7bd73e0bb6..4cf5c00d75 100644
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -77,7 +77,7 @@ ALIAS: $slot $snippet
     [ strong-style get print-element* ] ($span) ;
 
 : $url ( children -- )
-    [ ?second ] [ first ] bi over [ nip dup ] unless >url [
+    [ ?second ] [ first ] bi [ or ] keep >url [
         dup present href associate url-style get assoc-union
         [ write-object ] with-style
     ] ($span) ;