anchor.diff:      let dispose (c: IDisposable) = 
           c.Dispose()
           logf "disposing connection %s" id
  -    { create = create; dispose = dispose; tx = None }
  +    ConnectionManager.make(create, dispose)
   
   let internal withCreateConnection (create: unit -> IDbConnection) : ConnectionManager = 
       let dispose x = ()
  -    { create = create; dispose = dispose; tx = None }
  +    ConnectionManager.make(create, dispose)
   
   let internal doWithConnection (cmgr: ConnectionManager) f =
       withResource cmgr.create cmgr.dispose f
  
positive.code:             param.Value <- p
              cmd.Parameters.Add param |> ignore
          values |> Seq.iteri createParam
          withCmd cmd conn
      doWithConnection cmgr sqlProcessor'
  
  
negative.code:         logf "creating connection from const %s" id
          tx.Connection
      let dispose c = logf "disposing connection (but not really) %s" id
      ConnectionManager.make(create, dispose, tx)
  
  /// Creates a <see cref="ConnectionManager"/> with an owned connection
  let withNewConnection (create: unit -> IDbConnection) : ConnectionManager = 
  