anchor.diff:              mimesmap   = mimesmap         ;
               localaddr  = options.localaddr;
               tlsoptions = Some tlsoptions  ;
  -            servname   = options.servname ;
  +            servname   = options.localname;
           }
  
positive.code:     localaddr : IPEndPoint;
      localname : string;
      remotename: string option;
      servname  : string;
  }
  
  exception ArgError of string
  
negative.code:     let o_remotename = fun s ->
          options := { !options with remotename = Some(s) }
  
      let specs = [
          "--root-dir"     , ArgType.String o_rootdir   , sprintf "\t\tHTTP root directory (default `pwd`/%s)" defaultRoot
          "--sessionDB-dir", ArgType.String o_certdir   , sprintf "\tsession database directory (default `pwd`/%s)" defaultCert
  