anchor.diff:          | D7 of (UR->string->string->string->string->string->string->string->Response)
                   
       /// Dispatch URLs matching a set of pattens to functions
  -    type UD(port:int,urlsInit : (string * UDFunc) list,logLevel:int,delayStart:bool) as this = class
  -        inherit FSS(port)
  +    type UD(port:int,urlsInit : (string * UDFunc) list,logLevel:int,delayStart:bool, ?errorHandler:ErrorHandler) as this = class
  +        inherit FSS(port, errorHandler)
           let urlMatch path (url,_) = Regex.Match(path,url).Success
           let mutable urls = urlsInit
   
  
positive.code:         let lockThreadTracker() = Monitor.Enter(myLock)
          let unlockThreadTracker() = Monitor.Exit(myLock)
          let tcpListener = new TcpListener(System.Net.IPAddress.Any,port)
  
          ///
          let log level (s:string) =
  
negative.code:                                     this.doPost id bs sw path headers 
                              | _ -> Response(500,"text/html")
                      with x ->
                          errorHandler x
                                 
                  // Start constructing the reply starting with the response code   
                  sprintf "fss%d: finished getting connection, sending response code\n" id |> log 1
  