diff --git a/tests/test_testing.py b/tests/test_testing.py
index 7947150..df80b02 100644
--- a/tests/test_testing.py
+++ b/tests/test_testing.py
@@ -21,6 +21,11 @@ def test_testing():
     assert res.status_int == 200
     assert res.headers['content-type'] == 'text/plain'
     assert res.content_type == 'text/plain'
+    res = app.head('/')
+    assert res.status_int == 200
+    assert res.headers['content-type'] == 'text/plain'
+    assert res.headers['content-length'] <> '0'
+    assert res.body == ''
     raises(Exception, app.get, '/?error=t')
     raises(webtest.AppError, app.get, '/?status=404%20Not%20Found')
     app.get('/?status=404%20Not%20Found', status=404)
diff --git a/webtest/__init__.py b/webtest/__init__.py
index 66c150a..9687d91 100644
--- a/webtest/__init__.py
+++ b/webtest/__init__.py
@@ -235,6 +235,17 @@ class TestApp(object):
         return self._gen_request('DELETE', url, headers=headers,
                                  extra_environ=extra_environ,status=status,
                                  upload_files=None, expect_errors=expect_errors)
+    
+    def head(self, url, headers=None, extra_environ=None,
+               status=None, expect_errors=False):
+        """
+        Do a HEAD request.  Very like the ``.get()`` method.
+
+        Returns a ``webob.Response`` object.
+        """
+        return self._gen_request('HEAD', url, headers=headers,
+                                 extra_environ=extra_environ,status=status,
+                                 upload_files=None, expect_errors=expect_errors)
 
     def encode_multipart(self, params, files):
         """
diff --git a/webtest/debugapp.py b/webtest/debugapp.py
index 885f137..ad46610 100644
--- a/webtest/debugapp.py
+++ b/webtest/debugapp.py
@@ -29,7 +29,7 @@ def debug_app(environ, start_response):
             header_name = name[len('header-'):]
             headers.append((header_name, value))
     start_response(status, headers)
-    return [body]
+    return [body] if req.method <> "HEAD" else [""]
 
 def make_debug_app(global_conf):
     """

