--- CGI.pm.orig 2011-04-01 13:24:33.000000000 -0500
+++ CGI.pm      2011-04-01 13:25:54.000000000 -0500
@@ -3,6 +3,8 @@
 use Moose;
 extends 'Catalyst::Engine';

+use HTTP::Status;
+
 has _header_buf => (is => 'rw', clearer => '_clear_header_buf', predicate => '_has_header_buf');

 =head1 NAME
@@ -76,7 +78,9 @@
 sub finalize_headers {
     my ( $self, $c ) = @_;

-    $c->response->header( Status => $c->response->status );
+    my $status = $c->response->status;
+    my $reason = status_message($status);
+    $c->response->header( Status => "$status $reason" );

     $self->_header_buf($c->response->headers->as_string("\015\012") . "\015\012");
 }