anchor.diff:              fi.Directory.Create()
           File.WriteAllText(fi.FullName,JsonConvert.SerializeObject wishList)
       with exn ->
  -        printfn "Save failed %A" 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) =
  
positive.code:                 else
                      return! BAD_REQUEST "WishList is not valid" ctx
          with exn -> 
              printfn "SERVICE_UNAVAILABLE, %A" exn
              return! SERVICE_UNAVAILABLE "Database not available" ctx
      })    
negative.code: open System
  open Suave.ServerErrors
  open ServerCode.Domain
  open Suave.Logging
  open Suave.Logging.Message
  
  
  /// The default initial data 
  let defaultWishList userName : WishList =
  