X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fbittorrent%2Fbittorrent.factor;h=624544575eb0cb25d111261d944a6ccc8da65369;hp=b46b00ad8094f86ed1b658965b4c8b58421e7806;hb=714c6d2b9464e193e24cb45fab1961d96a9d422c;hpb=e766b83ac0fcc5857602dcfae2791be3b93602b6

diff --git a/extra/bittorrent/bittorrent.factor b/extra/bittorrent/bittorrent.factor
index b46b00ad80..624544575e 100644
--- a/extra/bittorrent/bittorrent.factor
+++ b/extra/bittorrent/bittorrent.factor
@@ -73,7 +73,7 @@ M: string load-metainfo
     dup "announce-list" of [ nip first random ] [ "announce" of ] if* ;
 
 : scrape-url ( metainfo -- url/f )
-    announce-url dup path>>  "announce" subseq-index? [
+    announce-url dup path>>  "announce" subseq-of? [
         [ "announce" "scrape" replace ] change-path
     ] [ drop f ] if ;