- if (!(out = lkfopendata (ctxpath, "w")))
- adios (ctxpath, "unable to write");
+ if (!(out = lkfopendata (ctxpath, "w", &failed_to_lock))) {
+ if (failed_to_lock) {
+ adios (ctxpath, "failed to lock");
+ } else {
+ adios (ctxpath, "unable to write");
+ }
+ }