When calling Print.printf "%S" twice, an exception is raised.


battest $ cat print_precentbigS.ml
open Print
let () = (
    let s = "bla bla bla" in
    printf p"%S\n" s;
    printf p"%S\n" s;
);;
battest $ ocamlfind batteries/ocaml print_precentbigS.ml
Exception: InnerIO.Output_closed.
"bla bla bla"
battest $ 


misc facts:
* The behavior is OK with %s instead of %S
* It is GODI/MacOSX batteries
* # Batteries_config.version;;
  - : string = "0.20090331"