--- trunk/lib/WebPAC/Output/Estraier.pm	2005/12/19 21:26:04	301
+++ trunk/lib/WebPAC/Output/Estraier.pm	2005/12/19 23:29:25	303
@@ -263,9 +263,9 @@
 
 	$log->debug("got labels: ", join("|", @labels));
 
-	@labels = grep(/^$args->{to}/, @labels);
-
-	my (undef,$label) = split(/\t/, shift @labels);
+	@labels = grep(/^$args->{to}\t/, @labels);
+	my $label = shift @labels;
+	$label = split(/\t/, $label)->[1] if ($label);
 
 	if (! $label) {
 		$log->warn("can't find label for $args->{to}, skipping link creaton");