diff --git a/hypo.hy b/hypo.hy
index 9f3a7b0..b055869 100755
--- a/hypo.hy
+++ b/hypo.hy
@@ -54,6 +54,7 @@
     res))
 
 (defun no-such-file []
+  (setv web.ctx.status (str "404 Not Found"))
   "No such file.\n")
 
 (defun get-file [name]
@@ -125,6 +126,7 @@
                       "hash" (get h 1)
                       "filename" name
                       "type" (get-type (get (os.path.splitext name) 1))})
+            (setv web.ctx.status (str "201 Created"))
             (+ web.ctx.home "/" *prefix* (get h 0) "\n")))]])
 
 (when (= __name__ "__main__")