anchor.diff:          logf "creating connection from const %s" id
           tx.Connection
       let dispose c = logf "disposing connection (but not really) %s" id
  -    { create = create; dispose = dispose; tx = Some tx }
  +    ConnectionManager.make(create, dispose, tx)
   
   /// Creates a <see cref="ConnectionManager"/> with an owned connection
   let withNewConnection (create: unit -> IDbConnection) : ConnectionManager = 
  
positive.code:         logf "creating connection from const %s" id
          conn
      let dispose c = logf "disposing connection (but not really) %s" id
      { create = create; dispose = dispose; tx = None }
  
  /// Creates a <see cref="ConnectionManager"/> with an externally-owned transaction
  let withTransaction (tx: IDbTransaction): ConnectionManager =
  
negative.code:     let conn = cmgr.create()
      let cmd = conn.CreateCommand()
      cmd.Transaction <- Option.getOrDefault cmgr.tx
      cmgr.setupCommand cmd
      let dispose () = cmgr.dispose conn
      new DbCommandWrapper(cmd, dispose) :> IDbCommand
  
  