--- trunk/lib/WebPAC/Input.pm	2007/04/11 12:22:37	823
+++ trunk/lib/WebPAC/Input.pm	2007/05/26 10:40:01	844
@@ -519,7 +519,8 @@
 
 	my $out = join("\n",
 		map {
-			my $f = $_ || die "no field";
+			my $f = $_;
+			die "no field in ", dump( $s->{fld} ) unless defined( $f );
 			my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}";
 			$max_fld = $v if ($v > $max_fld);