     filters>> [ '[ [ _ 1&& ] filter ] call( seq -- seq' ) ] when* ;
 
 : push-links ( links level unique-deque -- )
-    '[ _ _ store-url ] each ;
+    '[ _ _ push-url ] each ;
 
 : add-todo ( links level spider -- )
     todo>> push-links ;

: <unique-deque> ( -- unique-deque )
    H{ } clone <dlist> unique-deque boa ;

: store-url ( url depth unique-deque -- )
    [ <todo-url> ] dip
    [ [ [ t ] dip url>> ] [ assoc>> ] bi* set-at ]
    [ deque>> push-back ] 2bi ;

    >url
    spider new
        over >>base
        swap 0 <unique-deque> [ push-url ] keep >>todo
        <unique-deque> >>nonmatching
        <unique-deque> >>filtered
        0 >>max-depth
