anchor.diff:  
   let writeOption = 
       function
  -    | None -> DBNull.Value :> obj
  +    | None -> box DBNull.Value
       | Some x -> box x
   
   let findOne mapper query id =
  
positive.code:                 log "datareader dispose"
                  dr.Dispose()}
      
  let PrintfFormatProc (worker: string * obj list -> 'd)  (query: PrintfFormat<'a, _, _, 'd>) : 'a =
      if not (FSharpType.IsFunction typeof<'a>) then
          unbox (worker (query.Value, []))
      else
  
negative.code:     parameters |> Seq.iter addParam
      cmd
  
  let internal inferParameterDbType (p: string * obj) = 
      fst p, Unchecked.defaultof<DbType>, snd p
  
  let inferParameterDbTypes (p: (string * obj) list) = 
  