--- trunk/perl/scripts/cpanest	2005/09/16 23:29:27	23
+++ trunk/perl/scripts/cpanest	2005/09/17 00:48:32	24
@@ -966,10 +966,15 @@
 	print STDERR $doc->dump_draft if ($self->{'debug'});
 
 	my $id;
-	unless ($id = $self->{'node'}->put_doc($doc)) {
+	unless ($self->{'node'}->put_doc($doc)) {
 		printf STDERR "ERROR: %d\n", $self->{'node'}->status;
-	#} else {
-	#	print STDERR "id: $id\n";
+	} else {
+		$id = $self->{'node'}->uri_to_id( $uri );
+		if ($id != -1) {
+			print STDERR "id: $id\n" if ($self->{'debug'})
+		} else {
+			print STDERR "ERROR: can't find id for newly insrted document $uri\n";
+		}
 	}
 
 	return $id;