--- Field.pm.orig	Fri Nov 14 19:59:31 2003
+++ Field.pm	Fri Nov 14 20:02:41 2003
@@ -115,7 +115,7 @@
 	my $self = shift;
 	my $indno = shift;
 
-	croak( "Fields below 010 do not have indicators" )
+	$self->_warn( "Fields below 010 do not have indicators" )
 	    if $self->is_control_tag(); 
 
 	if ( $indno == 1 ) {
@@ -151,7 +151,7 @@
 	my $self = shift;
 	my $code_wanted = shift;
 
-	croak( "Fields below 010 do not have subfields" )
+	$self->_warn( "Fields below 010 do not have subfields" )
 	    if $self->is_control_tag();
 
 	my @data = @{$self->{_subfields}};
@@ -181,7 +181,7 @@
 sub subfields {
 	my $self = shift;
 
-	croak( "Fields below 010 do not have subfields" )
+	$self->_warn( "Fields below 010 do not have subfields" )
 	    if $self->is_control_tag();
 
 	my @list;
@@ -201,7 +201,7 @@
 sub data($) {
 	my $self = shift;
 
-	croak( "data() is only for tags less than 010" )
+	$self->_warn( "data() is only for tags less than 010" )
 	    unless $self->is_control_tag();
 		
 	$self->{_data} = $_[0] if @_;