let create w =
    let file = Wpo.file_for_log ~gid:w.po_gid in
    let outc = open_out file in
    let fmt = Format.formatter_of_out_channel outc in
    current := None ;
    (outc,fmt)