--- trunk/lib/Frey/Run.pm	2008/11/16 16:36:53	358
+++ trunk/lib/Frey/Run.pm	2008/11/16 17:20:26	361
@@ -115,7 +115,9 @@
 			} elsif ( $self->run eq 'sponge' ) {
 				my $data = $o->sponge;
 				confess "invalid data from sponge = ", dump( $data ) unless ref($data) eq 'HASH';
-				$html .= "<strong>" . $#{ $data->{rows} } . "</strong> rows from <code>$class->new" . dump( $self->params ) . "->sponge</code>";
+				my $rows = $#{ $data->{rows} } + 1;
+				$rows ||= 'no';
+				$html .= "<strong>$rows</strong> rows from <code>$class->new" . dump( $self->params ) . "->sponge</code>";
 				$html .= '<table>';
 				$html .= '<tr><th>' . join('</th><th>', @{$data->{NAME}} ) . '</th></tr>';
 				$html .= '<tr><td>' . join('</td><td>', @$_ ) . '</td></tr>' foreach @{ $data->{rows} };