--- trunk/lib/WebPAC/Normalize.pm	2007/11/12 11:10:48	1036
+++ trunk/lib/WebPAC/Normalize.pm	2007/11/19 16:33:09	1048
@@ -27,11 +27,11 @@
 
 #use base qw/WebPAC::Common/;
 use Data::Dump qw/dump/;
-use Storable qw/dclone/;
 use Carp qw/confess/;
 
 # debugging warn(s)
 my $debug = 0;
+_debug( $debug );
 
 # FIXME
 use WebPAC::Normalize::ISBN;
@@ -449,7 +449,7 @@
 		} else {
 			$_->{$sf};
 		}
-	} grep { ref($_) eq 'HASH' && $_->{$sf} } @{ $rec->{$f} };
+	} grep { ref($_) eq 'HASH' && defined $_->{$sf} } @{ $rec->{$f} };
 }
 
 =head2 rec