--- trunk/perl/scripts/cpanest	2005/09/16 17:26:03	21
+++ trunk/perl/scripts/cpanest	2005/09/16 17:29:53	22
@@ -973,15 +973,8 @@
 	my $self = shift;
 	my $key_v = shift || die "no key?";
 
-	my $id = $self->{'node'}->uri_to_id( 'file://' . $key_v );
-
-	if ($id == -1) {
-		print STDERR "WARNING: can't delete document uri file://$key_v\n";
-		return;
-	}
-
-	unless ($self->{'node'}->out_doc($id)) {
-		print STDERR "WARNING: can't out_doc($id)\n";
+	unless ($self->{'node'}->out_doc_by_uri( 'file://' . $key_v )) {
+		print STDERR "WARNING: can't delete document $key_v\n";
 	}
 }