anchor.diff:          match existingEntry with
           | Some(ee) ->
               let updatedEntry = { le with ID = ee.ID }
  -            db.Update(LessonEntry.FromLessonEntry(updatedEntry)) |> ignore
  +            db.Update(LessonEntry.FromLessonRecord(updatedEntry)) |> ignore
               ee.ID
           | _ -> this.AddLesson(le)
   
  
positive.code:         match existingEntry with
          | Some(ee) -> 
              let updatedEntry = { ge with ID = ee.ID }
              db.Update(GameEntry.FromGameEntry(updatedEntry)) |> ignore
              ee.ID
          | _ -> this.AddGame(ge)
  
  
negative.code:         db.Commit()
  
      member private this.DeleteCardInternal(c: CardRecord) = 
          db.Delete(CardEntry.FromCardRecord(c)) |> ignore
  
      member private this.DeleteCardsInternal(cards: CardRecord seq) = 
          cards |> Seq.iter this.DeleteCardInternal
  