X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fdns%2Fdns.factor;h=8e7327bff6276daefb59cb72e2bb452390c56d3c;hp=9f0db9ad2c6269aaa72780ca1b80bcf3fe4b13ea;hb=714c6d2b9464e193e24cb45fab1961d96a9d422c;hpb=e766b83ac0fcc5857602dcfae2791be3b93602b6

diff --git a/basis/dns/dns.factor b/basis/dns/dns.factor
index 9f0db9ad2c..8e7327bff6 100644
--- a/basis/dns/dns.factor
+++ b/basis/dns/dns.factor
@@ -58,7 +58,7 @@ SYMBOL: dns-servers
 ERROR: domain-name-contains-empty-label domain ;
 
 : check-domain-name ( domain -- domain )
-    dup ".." subseq-index? [ domain-name-contains-empty-label ] when ;
+    dup ".." subseq-of? [ domain-name-contains-empty-label ] when ;
 
 : >dotted ( domain -- domain' )
     dup "." tail? [ "." append ] unless ;