DNS test failures

basra:dns seandeelywoods$ tclsh dns.test 
- tcllib::testutils 1.2
* dns 1.4.0


==== dns-1.2 uri::split dns://nameserver/www.example.org FAILED
==== Contents of test case:

        if {![catch {uri::split $url} result]} {
            if {![catch {array set URL $result} result]} {
                set result [dictsort [array get URL]]
            }
        }
        set result
    
---- Result was:
invalid command name "GetHostPort"
---- Result should have been (exact matching):
class {} nameserver nameserver port {} query www.example.org scheme dns type {}
==== dns-1.2 FAILED


==== dns-1.3 uri::split dns://nameserver:53/www.example.org FAILED
==== Contents of test case:

        if {![catch {uri::split $url} result]} {
            if {![catch {array set URL $result} result]} {
                set result [dictsort [array get URL]]
            }
        }
        set result
    
---- Result was:
invalid command name "GetHostPort"
---- Result should have been (exact matching):
class {} nameserver nameserver port 53 query www.example.org scheme dns type {}
==== dns-1.3 FAILED

dns.test:	Total	13	Passed	11	Skipped	0	Failed	2