anchor.diff:              let wishList = getWishListFromDB token.UserName
               return! Successful.OK (JsonConvert.SerializeObject wishList) ctx
           with exn ->
  -            printfn "SERVICE_UNAVAILABLE, %A" exn 
  +            let logger = Log.create "FableSample"
  +            logger.error (eventX "SERVICE_UNAVAILABLE" >> addExn exn)
               return! SERVICE_UNAVAILABLE "Database not available" ctx
       })
   
  
positive.code: open System
  open Suave.ServerErrors
  open ServerCode.Domain
  
  /// The default initial data 
  let defaultWishList userName : WishList =
  
negative.code:             fi.Directory.Create()
          File.WriteAllText(fi.FullName,JsonConvert.SerializeObject wishList)
      with exn ->
          let logger = Log.create "FableSample"
          logger.error (eventX "Save failed with exception" >> addExn exn)
  
  /// Handle the GET on /api/wishlist
  let getWishList (ctx: HttpContext) =
  