[plt-scheme] TCP port numbers

Hello all,

I see there is a function:

     tcp-addresses : tcp-port -> (values string string)

in the net package that gives me the local and remote host names to  
which a TCP port is connected. Does anybody know of a way to get hold  
of the port numbers as well?

Many thanks,

-- Dave