anchor.diff:  /// Executes and returns the number of rows affected
   let internal execNonQueryInternal cmdType (cmgr: ConnectionManager) (sql: string) (parameters: #seq<Parameter>) =
       let execNonQuery' connection = 
  -        use cmd = prepareCommand connection sql cmdType parameters
  +        let _,_,tx = cmgr
  +        use cmd = prepareCommand connection tx sql cmdType parameters
           cmd.ExecuteNonQuery()
       doWithConnection cmgr execNonQuery'
   
  
positive.code: open FsSqlPrelude
  
  /// Encapsulates how to create and dispose a database connection
  type ConnectionManager = (unit -> IDbConnection) * (IDbConnection -> unit)
  
  /// Creates a <see cref="ConnectionManager"/> with an externally-owned connection
  let withConnection (conn: IDbConnection) : ConnectionManager =
  
negative.code:     doWithConnection cmgr sqlProcessor'
  
  let internal sqlProcessorToDataReader (cmgr: ConnectionManager) b = 
      let create,dispose,_ = cmgr
      let exec (cmd: IDbCommand) (conn: IDbConnection) = 
          let dispose() = dispose conn
          new DataReaderWrapper(cmd.ExecuteReader(), dispose) :> IDataReader
  