--- trunk/lib/WebPAC/Normalize.pm	2007/04/01 21:47:38	810
+++ trunk/lib/WebPAC/Normalize.pm	2007/04/01 21:47:42	812
@@ -167,7 +167,7 @@
 
 =cut
 
-my ($out, $marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $leader);
+my ($out, $marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $marc_leader);
 my ($marc_record_offset, $marc_fetch_offset) = (0, 0);
 
 sub _get_ds {
@@ -184,7 +184,7 @@
 
 sub _clean_ds {
 	my $a = {@_};
-	($out,$marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $leader) = ();
+	($out,$marc_record, $marc_encoding, $marc_repeatable_subfield, $marc_indicators, $marc_leader) = ();
 	($marc_record_offset, $marc_fetch_offset) = (0,0);
 	$marc_encoding = $a->{marc_encoding};
 }
@@ -490,9 +490,9 @@
 	my ($offset,$value) = @_;
 
 	if ($offset) {
-		$leader->{ $offset } = $value;
+		$marc_leader->{ $offset } = $value;
 	} else {
-		return $leader;
+		return $marc_leader;
 	}
 }