anchor.diff:      %% Internal with header.
       {ok, n} = disk_log:open([{name, n}, {file, File}, {type, wrap},
   			     {head, header}, {size, {100,No}}]),
  -    {26, 1} = {curb(n), cur_cnt(n)},
  +    {25, 1} = {curb(n), cur_cnt(n)},
       {1, 1}  = {no_written_items(n), no_items(n)},
       ok = disk_log:log(n, B),
  -    {94, 2} = {curb(n), cur_cnt(n)},
  +    {93, 2} = {curb(n), cur_cnt(n)},
       {2, 2}  = {no_written_items(n), no_items(n)},
       ok = disk_log:close(n),
       {ok, n} = disk_log:open([{name, n}, {file, File}, {type, wrap},
   			     {notify, true},
   			     {head, header}, {size, {100,No}}]),
  -    {94, 2} = {curb(n), cur_cnt(n)},
  +    {93, 2} = {curb(n), cur_cnt(n)},
       {0, 2}  = {no_written_items(n), no_items(n)},
       ok = disk_log:log(n, B),
       rec(1, {disk_log, node(), n, {wrap, 0}}),
  -    {94, 2} = {curb(n), cur_cnt(n)},
  +    {93, 2} = {curb(n), cur_cnt(n)},
       {2, 4}  = {no_written_items(n), no_items(n)},
       disk_log:inc_wrap_file(n),
       rec(1, {disk_log, node(), n, {wrap, 0}}),
  -    {26, 1} = {curb(n), cur_cnt(n)},
  +    {25, 1} = {curb(n), cur_cnt(n)},
       {3, 4}  = {no_written_items(n), no_items(n)},
       ok = disk_log:log_terms(n, [B,B,B]),
       %% Used to be one message, but now one per wrapped file.
       rec(1, {disk_log, node(), n, {wrap, 0}}),
       rec(1, {disk_log, node(), n, {wrap, 2}}),
  -    {94, 2} = {curb(n), cur_cnt(n)},
  +    {93, 2} = {curb(n), cur_cnt(n)},
       {8, 7}  = {no_written_items(n), no_items(n)},
       ok = disk_log:log_terms(n, [B]),
       rec(1, {disk_log, node(), n, {wrap, 2}}),
       ok = disk_log:log_terms(n, [B]),
       rec(1, {disk_log, node(), n, {wrap, 2}}),
  -    {94, 2} = {curb(n), cur_cnt(n)},
  +    {93, 2} = {curb(n), cur_cnt(n)},
       {12, 7}  = {no_written_items(n), no_items(n)},
       ok = disk_log:log_terms(n, [BB,BB]),
       %% Used to be one message, but now one per wrapped file.
       rec(2, {disk_log, node(), n, {wrap, 2}}),
  -    {194, 2} = {curb(n), cur_cnt(n)},
  +    {193, 2} = {curb(n), cur_cnt(n)},
       {16, 7}  = {no_written_items(n), no_items(n)},
       ok = disk_log:log_terms(n, [SB,SB,SB]),
       rec(1, {disk_log, node(), n, {wrap, 2}}),
  -    {80, 4} = {curb(n), cur_cnt(n)},
  +    {79, 4} = {curb(n), cur_cnt(n)},
       {20, 9}  = {no_written_items(n), no_items(n)},
       ok = disk_log:close(n),
       del(File, No),
  
positive.code:     ok = disk_log:close(n),
      {ok, n} = disk_log:open([{name, n}, {file, File}, {type, halt},
  			     {format, internal}, {mode, read_only}]),
      crash(File, 44), % the binary term {s} is now bad
      {J11, [{this,is}], 7} = disk_log:chunk(n, start, 10),
      {J21, [{on,a},{halt,file}]} = disk_log:chunk(n, J11),
      eof = disk_log:chunk(n, J21),
      ok = disk_log:close(n),
  
negative.code:     ok = disk_log:log_terms(n, [{some,terms}]), % second file full
      2 = curf(n),
      BadFile = add_ext(File, 1),
      crash(BadFile, 26), % the _binary_ is now invalid
      {error, {corrupt_log_file, BFile}} = disk_log:chunk(n, start, 1),
      BadFile = BFile,
      ok = disk_log:close(n),
  