ing-split</a> target-host '(#\:)))
	   (target-host-proper (car target-addr-lst))
	   (target-port
	    (if (pair? (cdr target-addr-lst))
		(string-&gt;integer (cadr target-addr-lst) 0
				 (string-length (cadr target-addr-lst)))
		80))
	   (dummy (logger #f &quot;Connecting to &quot; target-host-proper &quot;:&quot;
			  target-port))
	   ; prevent hacking
	   (dummy (if (string-index target-host-proper #\|)
		      (error &quot;Bad target addr: &quot; target-host-proper)))
	   (http-ports (open-tcp-connec