       </script>
       </head>
       <body></body>
-      </html>")))
+      </html>")
+    "text/html"))
 
 (defn handle-get [opts conn request]
   (let [path (:path request)]

  when the return value is received."
  [form return-value-fn]
  (do (set-return-value-fn return-value-fn)
      (send-and-close @(connection) 200 form)))

(defn return-value
  "Called by the server when a return value is received."

      (send-repl-client-page opts conn request)
      (let [file (io/file (str (:root opts) path))]
        (if (.exists file)
          (send-and-close conn 200 (slurp file) (content-type (.getName file)))
          (send-404 conn (:path request)))))))

(defn- handle-connection
