--- nfo/perl/libs/Tangram/Storage.pm	2003/04/23 23:40:58	1.8
+++ nfo/perl/libs/Tangram/Storage.pm	2003/04/24 00:21:27	1.9
@@ -795,10 +795,11 @@
 
 	$sth->execute($self->{export_id}->($id));
 	my $state = [ $sth->fetchrow_array() ];
-    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;