diff --git a/examples/echo.ml b/examples/echo.ml
index d2ae7b16..1b5e4a42 100644
--- a/examples/echo.ml
+++ b/examples/echo.ml
@@ -123,7 +123,7 @@ let () =
                 <li><pre>/upload/'path' (PUT) to upload a file</pre></li>\n\
                 <li><pre>/zcat/'path' (GET) to download a file (compressed)</pre></li>\n\
                 <li><pre>/stats/ (GET) to access statistics</pre></li>\n\
-                <li><pre><a href=\"/vfs/\">/vfs/</a> (GET) to access statistics</pre></li>\n\
+                <li><pre><a href=\"/vfs/\">/vfs/</a> (GET) to access a VFS embedded in the binary</pre></li>\n\
                 </ul></body>"
        in
        S.Response.make_string ~headers:["content-type", "text/html"] @@ Ok s);
diff --git a/src/camlzip/Tiny_httpd_camlzip.ml b/src/camlzip/Tiny_httpd_camlzip.ml
index 35aa9569..e9ce0269 100644
--- a/src/camlzip/Tiny_httpd_camlzip.ml
+++ b/src/camlzip/Tiny_httpd_camlzip.ml
@@ -47,8 +47,6 @@ let decode_deflate_stream_ ~buf_size (is:S.byte_stream) : S.byte_stream =
       )
     ()
 
-;;
-
 let encode_deflate_stream_ ~buf_size (is:S.byte_stream) : S.byte_stream =
   S._debug (fun k->k "wrap stream with deflate.encode");
   let refill = ref true in
@@ -117,9 +115,7 @@ let encode_deflate_stream_ ~buf_size (is:S.byte_stream) : S.byte_stream =
           S.Response.fail_raise ~code:400
             "deflate: error during compression:\n%s %s" e1 e2
       )
-
     ()
-;;
 
 let split_on_char ?(f=fun x->x) c s : string list =
   let rec loop acc i =