--- trunk/lib/WebPAC/Normalize.pm	2006/09/11 12:56:05	667
+++ trunk/lib/WebPAC/Normalize.pm	2006/09/11 14:28:56	668
@@ -757,7 +757,7 @@
 	} else {
 		if ($include_subfields) {
 			my $out = '';
-			foreach my $sf (keys %$h) {
+			foreach my $sf (sort keys %$h) {
 				if (ref($h->{$sf}) eq 'ARRAY') {
 					$out .= '^' . $sf . join('^' . $sf, @{ $h->{$sf} });
 				} else {