--- trunk/lib/WebPAC/Normalize.pm	2006/08/25 12:31:01	618
+++ trunk/lib/WebPAC/Normalize.pm	2006/08/25 12:31:06	619
@@ -540,8 +540,12 @@
 
 	warn "### marc_compose input subfields = ", dump(@_),$/ if ($debug > 2);
 
+	if ($#_ % 2 != 1) {
+		die "ERROR: marc_compose",dump($f,@_)," not valid (must be even).\nDo you need to add first() or join() around some argument?\n";
+	}
+
 	while (@_) {
-		my $sf = shift or die "marc_compose $f needs subfield";
+		my $sf = shift;
 		my $v = shift;
 
 		next unless (defined($v) && $v !~ /^\s*$/);