--- a/print-stats.ml
+++ b/print-stats.ml
@@ -199,9 +199,9 @@ let main () =
    *
    * https://github.com/mjambon/atdgen/issues/43
    * *)
-  let ob = Bi_outbuf.create_channel_writer stdout in
-  Datatypes_j.write_stats ob result;
-  Bi_outbuf.flush_channel_writer ob;
+  let buf = Buffer.create 1000 in
+  Datatypes_j.write_stats buf result;
+  Buffer.output_buffer stdout buf;
 ;;
 
 main ();;
