--- trunk2/lib/WebPAC/Index.pm	2004/10/18 12:21:07	514
+++ trunk2/lib/WebPAC/Index.pm	2004/10/18 13:59:12	515
@@ -45,7 +45,7 @@
 	my $log_file = $self->{'log'} || "log.conf";
 	Log::Log4perl->init($log_file);
 
-	tie @{$self->{'index'}}, "Tie::Array::Sorted", sub {
+	tie @{$self->{'index'}}, "Tie::Array::Sorted::Lazy", sub {
 		lc( $_[0]->{'headline'} ) cmp lc( $_[1]->{'headline'} )
 	};