anchor.diff:      ()
   
   let transactionCommitted conn =
  -    let someTran = Sql.transactional conn (expand someTran)
  -    someTran conn
  +    let someTran conn () = someTran conn
  +    let someTran = Sql.transactional conn someTran
  +    someTran()
       Assert.AreEqual(2L, countUsers conn)
   
   [<Test>]
  
positive.code:         nestedTransactionsAreNotSupported conn)
      ()
  
  [<Test>]
  let ``nested transactions are NOT supported persistent`` () =
      nestedTransactionsAreNotSupported (withNewDbFile())
  
  
negative.code:         transactionCommitted conn)
      ()
  
  [<Test>]
  let ``transaction committed persistent``() =
      transactionCommitted (withNewDbFile())
  
  