diff --git a/src/liberator/core.clj b/src/liberator/core.clj
index 4c325e3..6aa50c5 100644
--- a/src/liberator/core.clj
+++ b/src/liberator/core.clj
@@ -203,10 +203,8 @@
      (merge-with merge
                  {:headers (build-options-headers resource)}
                  response)
-      
-      (= :head (:request-method request))
-        (dissoc response :body)
-      :else response)))
+
+     :else response)))
 
 (defmacro ^:private defhandler [name status message]
   `(defn ~name [context#]
diff --git a/test/test_flow.clj b/test/test_flow.clj
index 8b7521b..491e25f 100644
--- a/test/test_flow.clj
+++ b/test/test_flow.clj
@@ -123,12 +123,12 @@
     (let [resp ((resource :exists? true :handle-ok "OK") (request :head "/"))]
       (fact resp => OK)
       (fact resp => (content-type "text/plain;charset=UTF-8"))
-      (fact resp => (no-body))))
+      (fact resp => (body "OK"))))
   
   (facts "unexisting resource"
     (let [resp ((resource :exists? false :handle-not-found "NOT-FOUND") (request :head "/"))]
       (fact resp => NOT-FOUND)
-      (fact resp => (no-body))))
+      (fact resp => (body "NOT-FOUND"))))
   
   (facts "on moved temporarily"
     (let [resp ((resource :exists? false