diff --git a/cohttp-async/src/body.ml b/cohttp-async/src/body.ml
index 5d430648a..a61c8d370 100644
--- a/cohttp-async/src/body.ml
+++ b/cohttp-async/src/body.ml
@@ -52,7 +52,7 @@ let transfer_encoding = function
   | #B.t as t -> B.transfer_encoding t
   | `Pipe _ -> Cohttp.Transfer.Chunked
 
-let of_string_list strings = `Pipe (Pipe.of_list strings)
+let of_string_list strings = `Strings strings
 
 let map t ~f =
   match t with