src/core/CCFormat.ml

@@ -398,10 +398,7 @@ let sprintf_ c format =
   Format.kfprintf
     (fun _fmt ->
       Format.pp_print_flush fmt ();
-      let s = Buffer.contents buf in
-      Buffer.reset buf;
-      (* in case of reuse *)
-      s)
+      Buffer.contents buf)
     fmt format
 
 let with_color_ksf ~f s fmt =

tests/core/t_string.ml

@@ -410,7 +410,4 @@ q
 ;;
 
 t @@ fun () -> "ab" < "abc";;
-t @@ fun () -> "123" < "14";;
-
-eq ~printer:Fun.id "a,b,c,d,e,f,g,"
-  (flat_map (CCFormat.sprintf "%c,") "abcdefg")
+t @@ fun () -> "123" < "14"