     (let [request-options (-> request
                               :body
                               slurp
-                              (valid-body CatalogRequestV4))]
+                              (validated-body CatalogRequestV4))]
       {:status 200
        :headers {"Content-Type" "application/json"}
        :body (json/encode

          request-options (-> request
                              :body
                              slurp
                              (valid-body CompileRequest))
          compile-options (assoc request-options
                                 "code_id"
                                 (current-code-id-fn env))]

   (schema/optional-key "options") {(schema/optional-key "capture_logs") schema/Bool
                                    (schema/optional-key "log_level") (schema/enum "debug" "info" "warn")}})

(defn validated-body
  [body schema]
  (let [parameters
        (try+
