anchor.diff:  		(read-socket s content-length)))
   				
   ;; Same example using stream support
  -(with-client-socket (s :host "www.double.co.nz" :port 80)
  +(with-client-socket (s :host "www.cormanlisp.com" :port 80)
   	(with-socket-stream (stream s)
   		(write-line "GET / HTTP/1.0" stream)
   		(write-line "" stream)
  
positive.code: ;; Loops through the headers looking for Content-Length. When all the
  ;; headers are read, read the content data using the length previously
  ;; provided.
  (with-client-socket (s :host "www.double.co.nz" :port 80)
  	(write-socket-line s "GET / HTTP/1.0")
  	(write-socket-line s "")
  	(let ((content-length 0))
  
negative.code: ;; Same example using a proxy
  (let* ((*default-proxy-server*
  			(make-instance 'generic-proxy-server :host "proxy.myserver.com" :port 8080))
  		(s (make-client-socket :host "www.cormanlisp.com" :port 80)))
  	(with-socket-stream (stream s)
  		(write-line "GET / HTTP/1.0" stream)
  		(write-line "" stream)
  