anchor.diff:           path_info/1,response_code/1,req_cookie/1,req_qs/1,req_headers/1,
            req_body/1,stream_req_body/2,resp_redirect/1,resp_headers/1,
            resp_body/1,app_root/1,path_tokens/1, host_tokens/1, port/1,
  -         base_uri/1,sock/1]).
  +         base_uri/1,sock/1,socket/1]).
   -export([path_info/2,get_req_header/2,do_redirect/2,fresh_resp_headers/2,
            get_resp_header/2,set_resp_header/3,set_resp_headers/2,
            set_disp_path/2,set_req_body/2,set_resp_body/2,set_response_code/2,
  
positive.code: 
  sock(_RD = #wm_reqdata{sock=Sock}) when is_list(Sock) -> Sock.
  
  app_root(_RD = #wm_reqdata{app_root=AR}) when is_list(AR) -> AR.
  
  % all three paths below are strings
  
negative.code: 
  
  create(Method,Version,RawPath,Headers) ->
      create(Method,http,Version,RawPath,Headers).
  create(Method,Scheme,Version,RawPath,Headers) ->
      create(#wm_reqdata{method=Method,scheme=Scheme,version=Version,
                         raw_path=RawPath,req_headers=Headers,
  