diff --git a/extra/html/parser/analyzer/analyzer.factor b/extra/html/parser/analyzer/analyzer.factor
index 54b8c8fc69..2196f1baaa 100755
--- a/extra/html/parser/analyzer/analyzer.factor
+++ b/extra/html/parser/analyzer/analyzer.factor
@@ -127,11 +127,13 @@ TUPLE: link attributes clickable ;
[ name>> "a" = ]
[ attributes>> "href" swap key? ] bi and ] filter
] map sift
- [ [ attributes>> "href" swap at ] map ] map concat ;
+ [ [ attributes>> "href" swap at ] map ] map concat
+ [ >url ] map ;
: find-frame-links ( vector -- vector' )
[ name>> "frame" = ] find-between-all
- [ [ attributes>> "src" swap at ] map sift ] map concat sift ;
+ [ [ attributes>> "src" swap at ] map sift ] map concat sift
+ [ >url ] map ;
: find-all-links ( vector -- vector' )
[ find-hrefs ] [ find-frame-links ] bi append prune ;