--- nfo/perl/libs/Tangram/Storage.pm	2003/04/24 00:21:27	1.9
+++ nfo/perl/libs/Tangram/Storage.pm	2003/05/07 16:20:26	1.10
@@ -705,7 +705,7 @@
 	my $row = _fetch_object_state($self, $id, $class);
 
     my $obj = $self->read_object($id, $class->{name}, $row);
-    return undef unless defined $row;
+    #return undef unless defined $row;
 
     # ??? $self->{-residue} = \@row;
 
@@ -723,7 +723,7 @@
     my $class = $self->{schema}->classdef( $self->{id2class}{ int(substr($id, -$self->{cid_size})) } );
 
 	my $row = _fetch_object_state($self, $id, $class);
-    return undef unless defined $row;
+    #return undef unless defined $row;
     _row_to_object($self, $obj, $id, $class->{name}, $row);
 
     return $obj;
@@ -795,11 +795,11 @@
 
 	$sth->execute($self->{export_id}->($id));
 	my $state = [ $sth->fetchrow_array() ];
-	croak "no object with id $id" unless (@{$state});
-	unless (@$state) {
-		return undef unless $sth->err;
-		croak "error during load of object id=$id: $sth->err";
-	}
+	#croak "no object with id $id" unless (@{$state});
+	#unless (@$state) {
+	#	return undef unless $sth->err;
+	#	croak "error during load of object id=$id: $sth->err";
+	#}
 	$sth->finish();
 
 	return $state;