X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fgopher%2Fui%2Fui.factor;h=be7f9b8d9fd8967241f1451c1a6750cf806a1b55;hp=edcc48fe6f9fc7b47f0131c57a22b9848d05f6ef;hb=714c6d2b9464e193e24cb45fab1961d96a9d422c;hpb=e766b83ac0fcc5857602dcfae2791be3b93602b6

diff --git a/extra/gopher/ui/ui.factor b/extra/gopher/ui/ui.factor
index edcc48fe6f..be7f9b8d9f 100644
--- a/extra/gopher/ui/ui.factor
+++ b/extra/gopher/ui/ui.factor
@@ -29,7 +29,7 @@ M: gopher-gadget model-changed
     [ url-field>> editor>> set-editor-string ] bi* ;
 
 : ?gopher-url ( obj -- url )
-    present dup "://" subseq-index? [ "gopher://" prepend ] unless >url ;
+    present dup "://" subseq-of? [ "gopher://" prepend ] unless >url ;
 
 : show-gopher ( url gopher-gadget -- )
     [ [ ?gopher-url ] [ f ] if* ] dip