(xdef 'tcp-connect (lambda (host port . rest) (call-with-values (lambda () (apply tcp-connect host port rest)) (lambda (x y) (cons x (cons y 'nil))))))
-----