diff --git a/tiifetch.tcl b/tiifetch.tcl index e6c966c..575ee83 100755 --- a/tiifetch.tcl +++ b/tiifetch.tcl @@ -45,7 +45,7 @@ proc url2dict {inputurl} { gophers - gopher { if {$rport eq ""} {set rport 70} - set selector [string cat "/" [string range $rpath 1 end] "\r\n"] + set selector [string cat "/" $rpath "\r\n"] dict set out handler render_handler_gopher } finger {