                 (reload-job-list request)
                 (send-response request))
             (-> (job-does-not-exist-response job-name "delete")
-                (send-error-response request)))))
+                (send-error-response request :not-found)))))
 
 (defn job-invalid-input
     [job-name git-repo branch]

                     (-> (create-error-response job-name "get_job_results" "can not read test results")
                         (send-response request))))
            (-> (job-does-not-exist-response job-name "get_job_results")
                (send-error-response request)))))

(defn job-started-handler
    [request]

                 (if job-metadata
                     (send-response job-metadata request))
                     (-> (job-does-not-exist-response job-name "get-job")
                         (send-error-response request :not-found)))
            (-> (job-does-not-exist-response job-name "get-job")
                (send-error-response request :bad-request)))))

(defn update-job
    [request]
