--- trunk/scripts/dump_fastmarc.pl	2005/01/04 15:32:54	2
+++ trunk/scripts/dump_fastmarc.pl	2005/04/08 12:19:24	3
@@ -20,7 +20,7 @@
 for my $mfn (1 .. $marc->count) {
 	my $rec = $marc->fetch($mfn) || next;
 	print "REC $mfn\n";
-	foreach my $f (keys %{$rec}) {
+	foreach my $f (sort keys %{$rec}) {
 		print "$f\t",$rec->{$f},"\n";
 	}
 	print "\n";