--- trunk/lib/Frey/Run.pm	2008/12/16 20:59:48	861
+++ trunk/lib/Frey/Run.pm	2008/12/16 21:00:27	862
@@ -104,8 +104,8 @@
 
 			if ( $self->run =~ m{as_markup} ) {
 				$html = $o->page( run => $self->run );
-			} elsif ( $self->run =~ m{as_sponge} ) {
-				$data = $o->as_sponge;
+			} elsif ( $self->run =~ m{(.*as_sponge)} ) {
+				$data = $o->$1;
 				confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH';
 				if ( $self->format eq 'html' ) {
 					my $rows = $#{ $data->{rows} } + 1;