--- ./lib/CPAN.pm-good	Fri Sep  9 14:30:12 2005
+++ ./lib/CPAN.pm	Mon Sep 19 15:23:42 2005
@@ -4974,7 +4974,8 @@ sub test {
     } else {
 	 $self->{make_test} = "NO";
          $self->{badtestcnt}++;
-	 $CPAN::Frontend->myprint("  $system -- NOT OK\n");
+	 # Print ID so that it is close to the harness report:
+	 $CPAN::Frontend->myprint("  $system -- NOT OK\n\t[were testing ". $self->id ."]\n");
     }
 }
 
