anchor.diff:      end
   
   
  -    type UR = { handleId : int ; sr : Stream option ; isPost : bool ; sw : StreamWriter ; path : string ; 
  +    type UR = { handleId : int ; sr : Stream option ; isPost : bool ; sw : StreamWriter ; path : string ;
                           ud : FSS ; headers : Map<string,string> ; session : Session option ;
                               GET : Map<string,string> } with
           /// Read from input stream 
           member x.ReadPostAsBytes(limit:int) =
  -                if not x.isPost then failwith "ERROR: ReadPost() requested for non POST request" 
  +                if not x.isPost then failwith "ERROR: ReadPost() requested for non POST request"
                   else match x.sr with
                           | None -> failwith "ERROR: ReadPost() no stream to read from.  Non POST requst?"
                           | Some(s) -> // Some stream available
  
positive.code:         /// Default implementation lets everything through
          default this.preCheck path ur = true,ur 
  
          member this.Start() = start()
          member this.Stop() = stop()
          override this.doGet (handleId:int) (sw : StreamWriter) (path:string) headers =
              let parseQueryArgs(s:string) =
                  s.Split([| '&' |]) |> Array.map (fun s -> match s.Split([|'='|]) with 
                                                                  | [| k ; v |] ->(k,Uri.UnescapeDataString(v)) 
                                                                  | _ -> failwithf "Invalid form args: %s" s) |> Map.ofSeq
  
              let path',args = match path.IndexOf('?') with
  
negative.code:                                     if remaining = 0 then ()
                                      else
                                          let n = s.Read(buffer,offset,remaining)
                                          if n = remaining then ()
                                          else if n = 0 then failwithf "ERROR: end of stream reading %d of %d byes in ReadBytesAsPost" (buffer.Length-remaining) buffer.Length
                                          else
                                              readWhile (offset+n) (remaining-n)
  