diff --git a/smol-http/http-msg.rkt b/smol-http/http-msg.rkt
index 02a90e4..afd4bca 100644
--- a/smol-http/http-msg.rkt
+++ b/smol-http/http-msg.rkt
@@ -245,14 +245,14 @@
                                                              [content-length . 5]))
                                         #"hello"))
 
-  (let* ([p (open-input-bytes (bytes-append #"HTTP/1.1 200 OK\r\n"
-                                            #"Transfer-Encoding: chunked\r\n"
-                                            #"\r\n"
-                                            #"5\r\nhello\r\n"
-                                            #"2\r\n, \r\n"
-                                            #"6\r\nworld!\r\n"
-                                            #"0\r\n\r\n"))]
-         [msg (read-http-msg p)])
+  (let ([msg (read-http-msg
+              (open-input-bytes (bytes-append #"HTTP/1.1 200 OK\r\n"
+                                              #"Transfer-Encoding: chunked\r\n"
+                                              #"\r\n"
+                                              #"5\r\nhello\r\n"
+                                              #"2\r\n, \r\n"
+                                              #"6\r\nworld!\r\n"
+                                              #"0\r\n\r\n")))])
     (check-equal? (for/list ([bs (in-http-body-chunks (http-msg-body msg))]) bs)
                   '(#"hello" #", " #"world!")))