--- /usr/lib/perl5/site_perl/5.8.7/Catalyst/Engine.pm	2007-02-28 07:20:30.000000000 -0800
+++ Catalyst/Engine.pm	2007-06-14 10:50:50.000000000 -0700
@@ -66,10 +66,8 @@
 
     my @cookies;
 
-    foreach my $name ( keys %{ $c->response->cookies } ) {
-
-        my $val = $c->response->cookies->{$name};
-
+    my $get_cookie_string = sub {
+        my ($name,$val) = @_;
         my $cookie = (
             Scalar::Util::blessed($val)
             ? $val
@@ -82,8 +80,16 @@
                 -secure  => $val->{secure} || 0
             )
         );
+        return $cookie->as_string;
+    };
 
-        push @cookies, $cookie->as_string;
+    foreach my $name ( keys %{ $c->response->cookies } ) {
+        my $val = $c->response->cookies->{$name};
+        if (ref $val eq 'ARRAY') {
+            push @cookies, $get_cookie_string->($name,$_) for @$val;
+        } else {
+            push @cookies, $get_cookie_string->($name,$val)
+        }
     }
 
     for my $cookie (@cookies) {