--- trunk2/all2all.pl	2004/10/18 18:43:57	519
+++ trunk2/all2all.pl	2004/10/18 20:03:42	520
@@ -139,9 +139,9 @@
 		$words =~ s/\W+$//;
 
 		# first try to generate headline for this entry from index
-		my $h = shift @{$ds->{'index'}};
+		my $h = $ds->{'index'}->[0];
 		# then, from display
-		$h ||= shift @{$ds->{'display'}};
+		$h ||= $ds->{'display'}->[0];
 		# and as last resport, fallback to headline
 		$h ||= $headline;